--- 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