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