I tried in emacs and at least the jde-xref-make..
works (I can't use emacs due to problem with
jde-import).
--- Andrew Hyatt <[EMAIL PROTECTED]> wrote:
>
> My guess is that this is a limitation of xemacs on
> Windows. I can use
> utf-8 as an encoding system on xemacs on Linux.
> Perhaps on the
> mailing list that knows a bit more about xemacs can
> help?
>
> Jeba Bhaskaran <[EMAIL PROTECTED]> writes:
>
> > --- Andrew Hyatt <[EMAIL PROTECTED]> wrote:
> >> Jeba Bhaskaran <[EMAIL PROTECTED]> writes:
> >>
> >> > Please enter the details of your bug report
> here:
> >> >
> >> > 1. After installing the beta jde 2.3.3, I have
> >> lost
> >> > syntax highlighting. I installed overlay-fix
> and
> >> stil
> >> > the syntax highlighting is not working.
> >> >
> >> > 2. I am not able to see the jde-xref-...
> options.
> >> I
> >> > tried M-x jde-xref-customize funtion. When I
> typed
> >> M-x
> >> > jde-x I only get jde-xemacs-.. completion and
> do
> >> not
> >> > get any jde-xref-.. completion.
> >> >
> >>
> >> I don't know why you are not seeing jde-xref
> >> options. Just to be
> >> sure, have you restarted emacs after installing
> the
> >> new JDE? Also, try
> >> putting this in your .emacs file, and see if it
> >> helps:
> >> (require 'jde-xref)
> >>
> >>
> > OK I added (require 'jde-xref) and I can set the
> xref
> > options. I get a backtrace when I try to run
> > jde-xref-make-.. function. Trace follows:
> > Signaling: (error "No such coding system" utf-8)
> > encode-coding-region(1 8 utf-8)
> > encode-coding-string("m_homes" utf-8)
> > (let* ((len ...) (result ...)) (goto-char (+ len
> > ...)) result)
> > jde-parse-class-get-utf8-constant()
> > (list (quote utf8)
> > (jde-parse-class-get-utf8-constant))
> > (backquote (utf8 (\, ...)))
> > (cond ((eq const-type 7) (backquote ...)) ((eq
> > const-type 9) (backquote ...)) ((eq const-type 10)
> > (backquote ...)) ((eq const-type 11) (backquote
> ...))
> > ((eq const-type 8) (backquote ...)) ((eq
> const-type 3)
> > (backquote ...)) ((eq const-type 4) (backquote
> ...))
> > ((eq const-type 5) (backquote ...)) ((eq
> const-type 6)
> > (backquote ...)) ((eq const-type 12) (backquote
> ...))
> > ((eq const-type 1) (backquote ...)))
> > (let ((const-type ...)) (forward-char) (cond
> (...
> > ...) (... ...) (... ...) (... ...) (... ...) (...
> ...)
> > (... ...) (... ...) (... ...) (... ...) (...
> ...)))
> > jde-parse-class-get-next-constant()
> > (let ((const ...)) (aset const-vec i const)
> (when
> > (or ... ...) (aset const-vec ... nil) (setq i
> ...)))
> > (while (< i --dotimes-temp--83104) (let (...)
> (aset
> > const-vec i const) (when ... ... ...)) (incf i))
> > (let ((--dotimes-temp--83104 count) (i 0))
> (while (<
> > i --dotimes-temp--83104) (let ... ... ...) (incf
> i))
> > const-vec)
> > (catch (quote --cl-block-nil--) (let (... ...)
> > (while ... ... ...) const-vec))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... const-vec)))
> > (block nil (let (... ...) (while ... ... ...)
> > const-vec))
> > (dotimes (i count const-vec) (let (...) (aset
> > const-vec i const) (when ... ... ...)))
> > (let* ((count ...) (const-vec ...)) (setq i 0)
> > (goto-char 11) (dotimes (i count const-vec) (let
> ...
> > ... ...)))
> > jde-parse-class-get-constants()
> > (let* ((constants ...) (version ...) (access
> ...)
> > (this-class ...) (superclass ...) (interfaces ...)
> > (fields ...) (methods ...) (attributes ...))
> > (kill-buffer buf) (backquote (... ... ... ... ...
> ...
> > ... ...)))
> > (let ((buf ...)) (set-buffer buf) (let* (... ...
> ...
> > ... ... ... ... ... ...) (kill-buffer buf)
> (backquote
> > ...)))
> >
> >
>
jde-parse-class("c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > (let ((info ...)) (jde-xref-add-class-info-to-db
> > info package-data subclasses) (add-to-list (quote
> > --with-all-class-infos-pclasses83065)
> > (jde-parse-class-extract-classname info)))
> > (if (and (not ...) (funcall ...
> > --with-all-class-infos-cfile83066)) (let (...)
> > (jde-xref-add-class-info-to-db info package-data
> > subclasses) (add-to-list ... ...)))
> > (if (string-match ".[Cc][Ll][Aa][Ss][Ss]$"
> > --with-all-class-infos-cfile83066) (if (and ...
> ...)
> > (let ... ... ...)))
> > (lambda (--with-all-class-infos-cfile83066)
> > "\nCommon Lisp lambda list:\n (cl-none
> > --WITH-ALL-CLASS-INFOS-CFILE83066)\n\n" (if
> > (string-match ".[Cc][Ll][Aa][Ss][Ss]$"
> > --with-all-class-infos-cfile83066) (if ...
> >
>
...)))("c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > funcall((lambda
> (--with-all-class-infos-cfile83066)
> > "\nCommon Lisp lambda list:\n (cl-none
> > --WITH-ALL-CLASS-INFOS-CFILE83066)\n\n" (if
> > (string-match ".[Cc][Ll][Aa][Ss][Ss]$"
> > --with-all-class-infos-cfile83066) (if ... ...)))
> >
>
"c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > (if (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper (catch ... ...)) (funcall
> > (symbol-value G83084)
> > --with-all-class-files-dir2-sym83070))
> > (lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070)))(--G83077--
> > --G83078-- --G83079--
> >
>
"c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > apply((lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070))) --G83077--
> > --G83078-- --G83079--
> >
>
"c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > (lambda (&rest --cl-rest--) "\nCommon Lisp
> lambda
> > list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--)
> >
>
--cl-rest--))("c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > funcall((lambda (&rest --cl-rest--) "\nCommon
> Lisp
> > lambda list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--) --cl-rest--))
> >
>
"c:\\webservices\\classes\\org\\aarp\\common\\ejb\\EJBHelper.class")
> > (while --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 (car
> > --dolist-temp--83083)) (funcall (symbol-value
> G83086)
> > --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 (cdr --dolist-temp--83083)))
> > (let ((--dolist-temp--83083 ...)
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 ...)
> (funcall
> > ... --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 ...)) nil)
> > (catch (quote --cl-block-nil--) (let (...
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 ... ... ...) nil))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... nil)))
> > (if (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper (catch ... ...)) (funcall
> > (symbol-value G83084)
> > --with-all-class-files-dir2-sym83070))
> > (lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070)))(--G83077--
> > --G83078-- --G83079--
> >
> "c:\\webservices\\classes\\org\\aarp\\common\\ejb")
> > apply((lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070))) --G83077--
> > --G83078-- --G83079--
> >
> "c:\\webservices\\classes\\org\\aarp\\common\\ejb")
> > (lambda (&rest --cl-rest--) "\nCommon Lisp
> lambda
> > list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--)
> >
>
--cl-rest--))("c:\\webservices\\classes\\org\\aarp\\common\\ejb")
> > funcall((lambda (&rest --cl-rest--) "\nCommon
> Lisp
> > lambda list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--) --cl-rest--))
> >
> "c:\\webservices\\classes\\org\\aarp\\common\\ejb")
> > (while --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 (car
> > --dolist-temp--83083)) (funcall (symbol-value
> G83086)
> > --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 (cdr --dolist-temp--83083)))
> > (let ((--dolist-temp--83083 ...)
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 ...)
> (funcall
> > ... --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 ...)) nil)
> > (catch (quote --cl-block-nil--) (let (...
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 ... ... ...) nil))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... nil)))
> > (if (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper (catch ... ...)) (funcall
> > (symbol-value G83084)
> > --with-all-class-files-dir2-sym83070))
> > (lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070)))(--G83077--
> > --G83078-- --G83079--
> > "c:\\webservices\\classes\\org\\aarp\\common")
> > apply((lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070))) --G83077--
> > --G83078-- --G83079--
> > "c:\\webservices\\classes\\org\\aarp\\common")
> > (lambda (&rest --cl-rest--) "\nCommon Lisp
> lambda
> > list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--)
> >
>
--cl-rest--))("c:\\webservices\\classes\\org\\aarp\\common")
> > funcall((lambda (&rest --cl-rest--) "\nCommon
> Lisp
> > lambda list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--) --cl-rest--))
> > "c:\\webservices\\classes\\org\\aarp\\common")
> > (while --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 (car
> > --dolist-temp--83083)) (funcall (symbol-value
> G83086)
> > --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 (cdr --dolist-temp--83083)))
> > (let ((--dolist-temp--83083 ...)
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 ...)
> (funcall
> > ... --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 ...)) nil)
> > (catch (quote --cl-block-nil--) (let (...
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 ... ... ...) nil))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... nil)))
> > (if (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper (catch ... ...)) (funcall
> > (symbol-value G83084)
> > --with-all-class-files-dir2-sym83070))
> > (lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070)))(--G83077--
> > --G83078-- --G83079--
> > "c:\\webservices\\classes\\org\\aarp")
> > apply((lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070))) --G83077--
> > --G83078-- --G83079--
> > "c:\\webservices\\classes\\org\\aarp")
> > (lambda (&rest --cl-rest--) "\nCommon Lisp
> lambda
> > list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--)
> >
> --cl-rest--))("c:\\webservices\\classes\\org\\aarp")
> > funcall((lambda (&rest --cl-rest--) "\nCommon
> Lisp
> > lambda list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--) --cl-rest--))
> > "c:\\webservices\\classes\\org\\aarp")
> > (while --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 (car
> > --dolist-temp--83083)) (funcall (symbol-value
> G83086)
> > --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 (cdr --dolist-temp--83083)))
> > (let ((--dolist-temp--83083 ...)
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 ...)
> (funcall
> > ... --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 ...)) nil)
> > (catch (quote --cl-block-nil--) (let (...
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 ... ... ...) nil))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... nil)))
> > (if (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper (catch ... ...)) (funcall
> > (symbol-value G83084)
> > --with-all-class-files-dir2-sym83070))
> > (lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070)))(--G83077--
> > --G83078-- --G83079--
> "c:\\webservices\\classes\\org")
> > apply((lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070))) --G83077--
> > --G83078-- --G83079--
> "c:\\webservices\\classes\\org")
> > (lambda (&rest --cl-rest--) "\nCommon Lisp
> lambda
> > list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--)
> > --cl-rest--))("c:\\webservices\\classes\\org")
> > funcall((lambda (&rest --cl-rest--) "\nCommon
> Lisp
> > lambda list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--) --cl-rest--))
> > "c:\\webservices\\classes\\org")
> > (while --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 (car
> > --dolist-temp--83083)) (funcall (symbol-value
> G83086)
> > --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 (cdr --dolist-temp--83083)))
> > (let ((--dolist-temp--83083 ...)
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 (setq
> > --with-all-class-files-child-path83076 ...)
> (funcall
> > ... --with-all-class-files-child-path83076) (setq
> > --dolist-temp--83083 ...)) nil)
> > (catch (quote --cl-block-nil--) (let (...
> > --with-all-class-files-child-path83076) (while
> > --dolist-temp--83083 ... ... ...) nil))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... nil)))
> > (if (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper (catch ... ...)) (funcall
> > (symbol-value G83084)
> > --with-all-class-files-dir2-sym83070))
> > (lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070)))(--G83077--
> > --G83078-- --G83079-- "c:/webservices/classes")
> > apply((lambda (G83084 G83085 G83086
> > --with-all-class-files-dir2-sym83070) (if
> > (file-directory-p
> > --with-all-class-files-dir2-sym83070)
> > (cl-block-wrapper ...) (funcall ...
> > --with-all-class-files-dir2-sym83070))) --G83077--
> > --G83078-- --G83079-- "c:/webservices/classes")
> > (lambda (&rest --cl-rest--) "\nCommon Lisp
> lambda
> > list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--)
> > --cl-rest--))("c:/webservices/classes")
> > funcall((lambda (&rest --cl-rest--) "\nCommon
> Lisp
> > lambda list:\n (cl-none
> > --WITH-ALL-CLASS-FILES-DIR2-SYM83070)\n\n" (apply
> > (quote ...) (quote --G83077--) (quote --G83078--)
> > (quote --G83079--) --cl-rest--))
> > "c:/webservices/classes")
> > (if nil (funcall (symbol-value --G83078--83081)
> > (concat --with-all-class-files-npath83068 "/"
> ...))
> > (funcall (symbol-value --G83079--83080)
> > --with-all-class-files-npath83068))
> > (if (file-directory-p
> > --with-all-class-files-npath83068) (if nil
> (funcall
> > ... ...) (funcall ...
> > --with-all-class-files-npath83068)) (let (...)
> > (make-directory
> --with-all-class-files-dir-sym83069)
> > (cd --with-all-class-files-dir-sym83069) (let ...
> ...
> > ...) (unwind-protect ... ...)))
> > (let ((--with-all-class-files-npath83068 ...))
> (if
> > (file-exists-p --with-all-class-files-npath83068)
> nil
> > (error ...)) (if (file-directory-p
> > --with-all-class-files-npath83068) (if nil ...
> ...)
> > (let ... ... ... ... ...)))
> > (while --dolist-temp--83097 (setq
> > --with-all-class-files-path83071 (car
> > --dolist-temp--83097)) (let (...) (if ... nil ...)
> (if
> > ... ... ...)) (setq --dolist-temp--83097 (cdr
> > --dolist-temp--83097)))
> > (let ((--dolist-temp--83097
> jde-built-class-path)
> > --with-all-class-files-path83071) (while
> > --dolist-temp--83097 (setq
> > --with-all-class-files-path83071 ...) (let ... ...
> > ...) (setq --dolist-temp--83097 ...)) nil)
> > (catch (quote --cl-block-nil--) (let (...
> > --with-all-class-files-path83071) (while
> > --dolist-temp--83097 ... ... ...) nil))
> > (cl-block-wrapper (catch (quote
> --cl-block-nil--)
> > (let ... ... nil)))
> > (save-excursion (cl-block-wrapper (catch ...
> ...)))
> > (unwind-protect (save-excursion
> (cl-block-wrapper
> > ...)) (cd --with-all-class-files-old-dir83067))
> > (let ((--with-all-class-files-old-dir83067
> > default-directory)) (unwind-protect
> (save-excursion
> > ...) (cd --with-all-class-files-old-dir83067)))
> > (progn (progn (set --G83079--83080 ...) (set
> > --G83078--83081 ...) (set --G83077--83082 ...))
> (let
> > (...) (unwind-protect ... ...)) nil)
> > (let ((--G83079--83080 ...) (--G83078--83081
> ...)
> > (--G83077--83082 ...)) (progn (set --G83079--83080
> > nil) (set --G83078--83081 nil) (set
> --G83077--83082
> > nil)) (progn (progn ... ... ...) (let ... ...)
> nil))
> > (labels
> ((--with-all-class-files-process-class83075
> > ... ...)
> (--with-all-class-files-process-files83074
> > ... ...) (--with-all-class-files-rec-descend83073
> ...
> > ...)) (let (...) (unwind-protect ... ...)) nil)
> > (with-all-class-files
> > (--with-all-class-infos-cfile83066) (when (and ...
> > ...) (let ... ... ...)))
> > (let ((--with-all-class-infos-pclasses83065
> ...))
> > (with-all-class-files
> > (--with-all-class-infos-cfile83066) (when ...
> ...))
> > nil)
> > (with-all-class-infos-when (info) (lambda
> > (class-file) (or ... ...))
> > (jde-xref-add-class-info-to-db info package-data
> > subclasses))
> > (let ((package-data ...) (subclasses ...)) (when
> > only-classes (maphash ... package-data))
> > (with-all-class-infos-when (info) (lambda ... ...)
> > (jde-xref-add-class-info-to-db info package-data
> > subclasses)) (setq jde-xref-parsed-classes nil)
> > (jde-xref-pickle-hash subclasses
> > (jde-xref-get-subclass-file)) (setq
> > jde-xref-subclasses subclasses) (maphash (lambda
> ...
> > ... ... ... ...) package-data) (setq
> jde-xref-cache
> > nil))
> > jde-xref-update-xref-db()
> > (lambda nil "Create a database of caller to
> callee
> > (and the reverse) from the\nclasses in
> > `jde-built-class-path' and store the data in the
> > location\nspecified by `jde-xref-db-file'"
> > (interactive) (when (null
> jde-xref-db-base-directory)
> > (error "The variable `jde-xref-db-base-directory'
> must
> > be defined to make a caller database")) (when
> (null
> > jde-built-class-path) (error "The variable
> > `jde-built-class-path' must be defined to make a
> > caller database")) (unless (file-exists-p ...)
> > (make-directory ...)) (jde-xref-update-xref-db)
> > (message "Finished creating xref database")
> (add-hook
> > (quote jde-compile-finish-hook) (quote
> > jde-xref-update-caller-table)) (add-hook (quote
> > after-save-hook) (quote jde-xref-file-saved)))()
> > call-interactively(jde-xref-make-xref-db)
> > command-execute(jde-xref-make-xref-db t)
> > execute-extended-command(nil)
> > call-interactively(execute-extended-command)
> >
> >
> >
> > __________________________________
> > Do you Yahoo!?
> > SBC Yahoo! DSL - Now only $29.95 per month!
> > http://sbc.yahoo.com
>
__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com
