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
