The problem witch "Wrong type argument: number-char-or-marker-p, nil"
still be her.
When I starting my XEmacs I have error request and JDEE crash. My XEmacs
configuration, and error request is on end.
Windows XP patch 3
XEmacs 21.5.17 beta
latest JDEE (I download at 10.7.2005)
CEDET (Speedbar etc in version 1.0beta2a, and try 1.0beta2b, 1.0pre3)
bash
I put a patch to jde-xemacs:
diff -u h:\lisp\jde-2.3.3beta6\lisp\jde-xemacs.el.orig
h:\lisp\jde-2.3.3beta6\lisp\jde-xemacs.el
--- h:\lisp\jde-2.3.3beta6\lisp\jde-xemacs.el.orig Thu Oct 02 09:50:20
2003
+++ h:\lisp\jde-2.3.3beta6\lisp\jde-xemacs.el Thu Oct 02 09:50:20 2003
@@ -112,7 +112,9 @@
(when (and (featurep 'widget)
(>= emacs-major-version 21)
(>= emacs-minor-version 4)
- (>= emacs-patch-level 10))
+ (or
+ (eq emacs-patch-level nil)
+ (>= emacs-patch-level 10)))
(require 'efc-xemacs))
This patch I find in one mail in discussion from Schmitt, Christian (ext.)
Error request:
(1) (initialization/error) An error has occurred while loading
c:\benzin\home\.xemacs\init.el:
Wrong type argument: number-char-or-marker-p, nil
Backtrace follows:
=(nil 1)
(and (= v1-1 v2-1) (< v1-2 v2-2))
(or (and (= v1-0 v2-0) (= v1-1 v2-1) (= v1-2 v2-2) v1-3 v2-3 (< v1-3
v2-3)) (and (= v1-1 v2-1) (< v1-2 v2-2)) (and (< v1-1 v2-1)) (and (<
v1-0 v2-0) (= v1-1 v2-1) (= v1-2 v2-2)))
# bind (v2-3 v2-2 v2-1 v2-0 v1-3 v1-2 v1-1 v1-0)
(let ((v1-0 (inversion-release-to-number (nth 0 ver1))) (v1-1 (nth 1
ver1)) (v1-2 (nth 2 ver1)) (v1-3 (nth 3 ver1)) (v2-0
(inversion-release-to-number (nth 0 ver2))) (v2-1 (nth 1 ver2)) (v2-2
(nth 2 ver2)) (v2-3 (nth 3 ver2))) (or (and (= v1-0 v2-0) (= v1-1 v2-1)
(= v1-2 v2-2) v1-3 v2-3 (< v1-3 v2-3)) (and (= v1-1 v2-1) (< v1-2 v2-2))
(and (< v1-1 v2-1)) (and (< v1-0 v2-0) (= v1-1 v2-1) (= v1-2 v2-2))))
# bind (ver2 ver1)
inversion-<(nil (beta 1 0 3))
(cond ((inversion-= code req) nil) ((inversion-< code req) (quote
outdated)) ((inversion-< req code) (let ((incompatible (if (stringp
incompatible-version) (inversion-decode-version incompatible-version)
incompatible-version))) (cond ((not incompatible) nil) ((or (inversion-=
req incompatible) (inversion-< req incompatible)) (quote incompatible))
(t nil)))) (t t))
# bind (count req code)
(let ((code (if (stringp version) (inversion-decode-version version)
version)) (req (if (stringp minimum) (inversion-decode-version minimum)
minimum)) (count 0)) (cond ((inversion-= code req) nil) ((inversion-<
code req) (quote outdated)) ((inversion-< req code) (let ((incompatible
(if (stringp incompatible-version) (inversion-decode-version
incompatible-version) incompatible-version))) (cond ((not incompatible)
nil) ((or (inversion-= req incompatible) (inversion-< req incompatible))
(quote incompatible)) (t nil)))) (t t)))
# bind (reserved minimum incompatible-version version)
inversion-check-version("1.0pre3" nil "1.0beta3")
(or (not ver) (inversion-check-version (car ver) (cdr ver) minimum))
(if (or (not ver) (inversion-check-version (car ver) (cdr ver)
minimum)) (let* ((default-directory (or installdir (expand-file-name
(format "./%s" package)))) subdir) (when (file-directory-p
default-directory) (while subdirs (setq subdir (expand-file-name (car
subdirs)) subdirs (cdr subdirs)) (when (file-directory-p subdir)
(message "%S added to `load-path'" subdir) (add-to-list (quote
load-path) subdir))) (message "%S added to `load-path'"
default-directory) (add-to-list (quote load-path) default-directory))))
(when (or (not ver) (inversion-check-version (car ver) (cdr ver)
minimum)) (let* ((default-directory (or installdir (expand-file-name
(format "./%s" package)))) subdir) (when (file-directory-p
default-directory) (while subdirs (setq subdir (expand-file-name (car
subdirs)) subdirs (cdr subdirs)) (when (file-directory-p subdir)
(message "%S added to `load-path'" subdir) (add-to-list (quote
load-path) subdir))) (message "%S added to `load-path'"
default-directory) (add-to-list (quote load-path) default-directory))))
# bind (ver)
(let ((ver (inversion-find-version package))) (when (or (not ver)
(inversion-check-version (car ver) (cdr ver) minimum)) (let*
((default-directory (or installdir (expand-file-name (format "./%s"
package)))) subdir) (when (file-directory-p default-directory) (while
subdirs (setq subdir (expand-file-name (car subdirs)) subdirs (cdr
subdirs)) (when (file-directory-p subdir) (message "%S added to
`load-path'" subdir) (add-to-list (quote load-path) subdir))) (message
"%S added to `load-path'" default-directory) (add-to-list (quote
load-path) default-directory)))))
# bind (subdirs installdir minimum package)
inversion-add-to-load-path(ede "1.0beta3" nil)
(while --dolist-temp--51202 (setq package-spec (car
--dolist-temp--51202)) (setq package (nth 0 package-spec) min-version
(nth 1 package-spec) installdir (nth 2 package-spec)) (when installdir
(setq installdir (expand-file-name installdir)))
(inversion-add-to-load-path package min-version installdir)
(condition-case err (require (intern (format "%s-load" package))) (error
(message "%s" (error-message-string err)))) (setq --dolist-temp--51202
(cdr --dolist-temp--51202)))
# bind (package-spec --dolist-temp--51202)
(let ((--dolist-temp--51202 cedet-packages) package-spec) (while
--dolist-temp--51202 (setq package-spec (car --dolist-temp--51202))
(setq package (nth 0 package-spec) min-version (nth 1 package-spec)
installdir (nth 2 package-spec)) (when installdir (setq installdir
(expand-file-name installdir))) (inversion-add-to-load-path package
min-version installdir) (condition-case err (require (intern (format
"%s-load" package))) (error (message "%s" (error-message-string err))))
(setq --dolist-temp--51202 (cdr --dolist-temp--51202))) nil)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let ((--dolist-temp--51202
cedet-packages) package-spec) (while --dolist-temp--51202 (setq
package-spec (car --dolist-temp--51202)) (setq package (nth 0
package-spec) min-version (nth 1 package-spec) installdir (nth 2
package-spec)) (when installdir (setq installdir (expand-file-name
installdir))) (inversion-add-to-load-path package min-version
installdir) (condition-case err (require (intern (format "%s-load"
package))) (error (message "%s" (error-message-string err)))) (setq
--dolist-temp--51202 (cdr --dolist-temp--51202))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let
((--dolist-temp--51202 cedet-packages) package-spec) (while
--dolist-temp--51202 (setq package-spec (car --dolist-temp--51202))
(setq package (nth 0 package-spec) min-version (nth 1 package-spec)
installdir (nth 2 package-spec)) (when installdir (setq installdir
(expand-file-name installdir))) (inversion-add-to-load-path package
min-version installdir) (condition-case err (require (intern (format
"%s-load" package))) (error (message "%s" (error-message-string err))))
(setq --dolist-temp--51202 (cdr --dolist-temp--51202))) nil)))
(block nil (let ((--dolist-temp--51202 cedet-packages) package-spec)
(while --dolist-temp--51202 (setq package-spec (car
--dolist-temp--51202)) (setq package (nth 0 package-spec) min-version
(nth 1 package-spec) installdir (nth 2 package-spec)) (when installdir
(setq installdir (expand-file-name installdir)))
(inversion-add-to-load-path package min-version installdir)
(condition-case err (require (intern (format "%s-load" package))) (error
(message "%s" (error-message-string err)))) (setq --dolist-temp--51202
(cdr --dolist-temp--51202))) nil))
(dolist (package-spec cedet-packages) (setq package (nth 0
package-spec) min-version (nth 1 package-spec) installdir (nth 2
package-spec)) (when installdir (setq installdir (expand-file-name
installdir))) (inversion-add-to-load-path package min-version
installdir) (condition-case err (require (intern (format "%s-load"
package))) (error (message "%s" (error-message-string err)))))
# bind (installdir min-version package default-directory)
(let ((default-directory (expand-file-name "..")) package min-version
installdir) (dolist (package-spec cedet-packages) (setq package (nth 0
package-spec) min-version (nth 1 package-spec) installdir (nth 2
package-spec)) (when installdir (setq installdir (expand-file-name
installdir))) (inversion-add-to-load-path package min-version
installdir) (condition-case err (require (intern (format "%s-load"
package))) (error (message "%s" (error-message-string err))))))
# bind (default-directory)
(let ((default-directory (file-name-directory (or load-file-name
(buffer-file-name))))) (add-to-list (quote load-path) default-directory)
(message "%S added to `load-path'" default-directory) (require (quote
inversion)) (let ((default-directory (expand-file-name "..")) package
min-version installdir) (dolist (package-spec cedet-packages) (setq
package (nth 0 package-spec) min-version (nth 1 package-spec) installdir
(nth 2 package-spec)) (when installdir (setq installdir
(expand-file-name installdir))) (inversion-add-to-load-path package
min-version installdir) (condition-case err (require (intern (format
"%s-load" package))) (error (message "%s" (error-message-string err)))))))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("c:\\Program
Files\\XEmacs\\xemacs-packages\\lisp\\cedet-1.0beta2a\\common\\cedet.el"
nil nil t undecided)
# bind (path handler filename nosuffix nomessage noerror file)
load("c:\\Program
Files\\XEmacs\\xemacs-packages\\lisp\\cedet-1.0beta2a\\common\\cedet.el"
nil nil t)
# bind (file)
load-file("c:/Program
Files/XEmacs/xemacs-packages/lisp/cedet-1.0beta2a/common/cedet.el")
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("c:\\benzin\\home\\.xemacs\\init.el" t t t undecided)
# bind (path handler filename nosuffix nomessage noerror file)
load("c:\\benzin\\home\\.xemacs\\init.el" t t t)
load-user-init-file()
#<compiled-function nil "...(10)" [init-file-had-error
load-user-init-file-p load-user-init-file nil] 2>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function
(__load_init_file_arg__) "...(26)" [init-file-had-error user-init-file
__load_init_file_arg__ errstr error-message-string message "Error in
init file: %s" lwarn initialization error "An error has occurred while
loading %s:\n\n%s\n\nBacktrace follows:\n\n%s\n\nTo ensure normal
operation, you should investigate the cause of the error\nin your
initialization file and remove it. Use the `-debug-init' option\nto
XEmacs to enter the debugger when the error occurs and investigate
the\nexact problem." backtrace-in-condition-handler-eliminating-handler
t] 8> #<compiled-function nil "...(10)" [init-file-had-error
load-user-init-file-p load-user-init-file nil] 2>)
# (condition-case ... . ((error)))
# bind (debug-on-error debug-on-error-from-init-file
debug-on-error-should-be-set debug-on-error-initial)
load-init-file()
# bind (command-line-args-left)
command-line()
# (condition-case ... . ((t (byte-code " §" [error-data data nil]
1))))
# bind (error-data)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
To ensure normal operation, you should investigate the cause of the error
in your initialization file and remove it. Use the `-debug-init' option
to XEmacs to enter the debugger when the error occurs and investigate the
exact problem.
