I'am experiencing very often the error described below.
Is someone know how to correct it ?
Thanks in advance.
Eric.
Emacs : GNU Emacs 20.5.1 (i386-redhat-linux-gnu, X toolkit)
of Tue Feb 22 2000 on porky.devel.redhat.com
Package: JDE version 2.2.8 beta1
ecb-1.31
eieio-0.16
elib-1.0
semantic-1.4beta7
speedbar-0.13a
jde / ecb configuration:
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - -
;;; JDE configuration
;; Set the debug option to enable a backtrace when a
;; problem occurs.
;;;(setq debug-on-error t)
;; Update the Emacs load-path to include the path to
;; the JDE and its require packages. This code assumes
;; that you have installed the packages in the emacs/site
;; subdirectory of your home directory.
;;(add-to-list 'load-path (expand-file-name
"/usr/local/emacs/jde/lisp"))
;;(add-to-list 'load-path (expand-file-name
"/usr/local/emacs/semantic"))
;;(add-to-list 'load-path (expand-file-name
"/usr/local/emacs/speedbar"))
;;(add-to-list 'load-path (expand-file-name "/usr/local/emacs/eieio"))
;;(add-to-list 'load-path (expand-file-name "/usr/local/emacs/elib"))
(add-to-list 'load-path "/home/ech/.lisp/semantic")
(add-to-list 'load-path "/home/ech/.lisp/speedbar")
(add-to-list 'load-path "/home/ech/.lisp/eieio")
(add-to-list 'load-path "/home/ech/.lisp/elib")
(add-to-list 'load-path "/home/ech/.lisp/jde/lisp")
;; If you want Emacs to defer loading the JDE until you open a
;; Java file, edit the following line
(setq defer-loading-jde nil)
;; to read:
;;
;; (setq defer-loading-jde t)
;;
(if defer-loading-jde
(progn
(autoload 'jde-mode "jde" "JDE mode." t)
(setq auto-mode-alist
(append
'(("\\.java\\'" . jde-mode))
auto-mode-alist)))
(require 'jde))
;; Sets the basic indentation for Java source files
;; to four spaces.
(defun my-jde-mode-hook ()
(setq c-basic-offset 4)
(c-set-offset 'substatement-open 0) ; this is the one you care about
(c-set-offset 'defun-open 0) ; this is the one you care about
(c-set-offset 'inline-open 0) ; this is the one you care about
(c-set-offset 'statement-case-open 0)
(c-set-offset 'case-label '+)
(setq tab-width 4
;; make sure spaces are used instead of tabs
indent-tabs-mode nil)
(message "my jde-mode-hook function executed"))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
;; --------------------------------------------------------
;; ECB
(add-to-list 'load-path (expand-file-name "/home/ech/.lisp/ecb"))
(require 'ecb)
(custom-set-variables
'(ecb-truncate-lines nil)
'(ecb-layout-nr 0)
'(ecb-other-window-jump-behavior (quote only-edit)))
;;---------------------------------------------------------
;; to prevent the truncated line problem with jde and ecb
(setq truncate-partial-width-windows nil)
;; ------------------------ bug in overlay -----------------
;;(require 'overlay-fix)
;; -------- jde checker.
;;
(require 'jde-check)
(setq
jde-check-option-allow-maxlinelen 160
jde-check-option-allow-protected t
jde-check-option-allow-noauthor t
)
Error description:
-----------------
Signaling: (wrong-type-argument char-or-string-p nil)
insert(nil)
(let ((p ...)) (insert text) (put-text-property p (+ p ...) (quote
mouse-face) (quote highlight)) (if facer (if ... ... ...)))
tree-buffer-insert-text(nil nil)
tree-buffer-add-node([nil 2 nil nil ["[Parents]" 1 nil t ["root" 0
"root" t nil ... t] (#0 [#("List" 0 4 ...) 2 "List" nil #1 nil nil]) t]
nil nil] 1)
(while --dolist-temp--98233 (setq node (car --dolist-temp--98233))
(tree-buffer-add-node node (1+ depth)) (setq --dolist-temp--98233 (cdr
--dolist-temp--98233)))
(let ((--dolist-temp--98233 ...) node) (while --dolist-temp--98233
(setq node ...) (tree-buffer-add-node node ...) (setq
--dolist-temp--98233 ...)) nil)
(catch (quote --cl-block-nil--) (let (... node) (while
--dolist-temp--98233 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... node) (while --dolist-temp--98233 ... ... ...)
nil))
(dolist (node (tree-node-get-children node)) (tree-buffer-add-node
node (1+ depth)))
(if (tree-node-is-expanded node) (dolist (node ...)
(tree-buffer-add-node node ...)))
tree-buffer-add-node(["[Parents]" 1 nil t ["root" 0 "root" t nil (#0
["[Variables]" 1 nil nil #1 ... t] [#("SdRouteList ()" 0 11 ... 11 14
nil) 0 ... nil #1 nil nil] [#("add (Object) : boolean" 0 3 ... 3 5 nil 5
11 ... 11 15 nil 15 22 ...) 0 ... nil #1 nil nil] [#("add (int, Object)
: void" 0 3 ... 3 5 nil 5 8 ... 8 10 nil 10 16 ... 16 20 nil 20 24 ...)
0 ... nil #1 nil nil] [#("addAll (Collection) : boolean" 0 6 ... 6 8 nil
8 18 ... 18 22 nil 22 29 ...) 0 ... nil #1 nil nil] [#("addAll (int,
Collection) : boolean" 0 6 ... 6 8 nil 8 11 ... 11 13 nil 13 23 ... 23
27 nil 27 34 ...) 0 ... nil #1 nil nil] [#("clear () : void" 0 5 ... 5
11 nil 11 15 ...) 0 ... nil #1 nil nil] [#("contains (Object) : boolean"
0 8 ... 8 10 nil 10 16 ... 16 20 nil 20 27 ...) 0 ... nil #1 nil nil]
[#("containsAll (Collection) : boolean" 0 11 ... 11 13 nil 13 23 ... 23
27 nil 27 34 ...) 0 ... nil #1 nil nil] [#("equals (Object) : boolean" 0
6 ... 6 8 nil 8 14 ... 14 18 nil 18 25 ...) 0 ... nil #1 nil nil]
[#("get (int) : Object" 0 3 ... 3 5 nil 5 8 ... 8 12 nil 12 18 ...) 0
... nil #1 nil nil] [#("getJdbcList () : Object[]" 0 11 ... 11 17 nil 17
25 ...) 0 ... nil #1 nil nil] [#("hashCode () : int" 0 8 ... 8 14 nil 14
17 ...) 0 ... nil #1 nil nil] [#("indexOf (Object) : int" 0 7 ... 7 9
nil 9 15 ... 15 19 nil 19 22 ...) 0 ... nil #1 nil nil] [#("isEmpty () :
boolean" 0 7 ... 7 13 nil 13 20 ...) 0 ... nil #1 nil nil] [#("iterator
() : Iterator" 0 8 ... 8 14 nil 14 22 ...) 0 ... nil #1 nil nil]
[#("lastIndexOf (Object) : int" 0 11 ... 11 13 nil 13 19 ... 19 23 nil
23 26 ...) 0 ... nil #1 nil nil] [#("listIterator () : ListIterator" 0
12 ... 12 18 nil 18 30 ...) 0 ... nil #1 nil nil] [#("listIterator (int)
: ListIterator" 0 12 ... 12 14 nil 14 17 ... 17 21 nil 21 33 ...) 0 ...
nil #1 nil nil] [#("readJdbcList (Object[]) : void" 0 12 ... 12 14 nil
14 22 ... 22 26 nil 26 30 ...) 0 ... nil #1 nil nil] [#("remove (Object)
: boolean" 0 6 ... 6 8 nil 8 14 ... 14 18 nil 18 25 ...) 0 ... nil #1
nil nil] [#("remove (int) : Object" 0 6 ... 6 8 nil 8 11 ... 11 15 nil
15 21 ...) 0 ... nil #1 nil nil] [#("removeAll (Collection) : boolean" 0
9 ... 9 11 nil 11 21 ... 21 25 nil 25 32 ...) 0 ... nil #1 nil nil]
[#("retainAll (Collection) : boolean" 0 9 ... 9 11 nil 11 21 ... 21 25
nil 25 32 ...) 0 ... nil #1 nil nil] [#("set (int, Object) : Object" 0 3
... 3 5 nil 5 8 ... 8 10 nil 10 16 ... 16 20 nil 20 26 ...) 0 ... nil #1
nil nil] [#("size () : int" 0 4 ... 4 10 nil 10 13 ...) 0 ... nil #1 nil
nil] [#("subList (int, int) : List" 0 7 ... 7 9 nil 9 12 ... 12 14 nil
14 17 ... 17 21 nil 21 25 ...) 0 ... nil #1 nil nil] [#("toArray () :
Object[]" 0 7 ... 7 13 nil 13 21 ...) 0 ... nil #1 nil nil] [#("toArray
(Object[]) : Object[]" 0 7 ... 7 9 nil 9 17 ... 17 21 nil 21 29 ...) 0
... nil #1 nil nil]) t] ([nil 2 nil nil #0 nil nil] [#("List" 0 4 ...) 2
"List" nil #0 nil nil]) t] 0)
(while --dolist-temp--98232 (setq node (car --dolist-temp--98232))
(tree-buffer-add-node node 0) (setq --dolist-temp--98232 (cdr
--dolist-temp--98232)))
(let ((--dolist-temp--98232 ...) node) (while --dolist-temp--98232
(setq node ...) (tree-buffer-add-node node 0) (setq --dolist-temp--98232
...)) nil)
(catch (quote --cl-block-nil--) (let (... node) (while
--dolist-temp--98232 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... node) (while --dolist-temp--98232 ... ... ...)
nil))
(dolist (node (tree-node-get-children tree-buffer-root))
(tree-buffer-add-node node 0))
(let* ((w ...) (ws ...) (p ...) (buffer-read-only nil)
(next-line-add-newlines nil)) (setq tree-buffer-nodes nil)
(erase-buffer) (dolist (node ...) (tree-buffer-add-node node 0))
(tree-buffer-highlight-node-data tree-buffer-highlighted-node-data)
(goto-char p) (set-window-start w ws) (when node (tree-buffer-recenter
node w)))
tree-buffer-update()
(save-excursion (ecb-buffer-select ecb-methods-buffer-name) (setq
tree-buffer-indent ecb-tree-indent) (tree-buffer-update))
(if (string-match "^ *\\*" (buffer-name)) nil (tree-node-set-children
ecb-methods-root-node nil) (ecb-add-tokens ecb-methods-root-node
(semantic-toplevel-get-cache) t) (save-excursion (ecb-buffer-select
ecb-methods-buffer-name) (setq tree-buffer-indent ecb-tree-indent)
(tree-buffer-update)) (ecb-mode-line-format) (setq
ecb-method-buffer-needs-rebuild nil))
(unless (string-match "^ *\\*" (buffer-name)) (tree-node-set-children
ecb-methods-root-node nil) (ecb-add-tokens ecb-methods-root-node
(semantic-toplevel-get-cache) t) (save-excursion (ecb-buffer-select
ecb-methods-buffer-name) (setq tree-buffer-indent ecb-tree-indent)
(tree-buffer-update)) (ecb-mode-line-format) (setq
ecb-method-buffer-needs-rebuild nil))
(progn (unless (string-match "^ *\\*" ...) (tree-node-set-children
ecb-methods-root-node nil) (ecb-add-tokens ecb-methods-root-node ... t)
(save-excursion ... ... ...) (ecb-mode-line-format) (setq
ecb-method-buffer-needs-rebuild nil)))
(if (and ecb-activated (equal ... ecb-frame) (get-buffer-window
ecb-methods-buffer-name) (or ... ...)) (progn (unless ... ... ... ...
... ...)))
(when (and ecb-activated (equal ... ecb-frame) (get-buffer-window
ecb-methods-buffer-name) (or ... ...)) (unless (string-match "^ *\\*"
...) (tree-node-set-children ecb-methods-root-node nil) (ecb-add-tokens
ecb-methods-root-node ... t) (save-excursion ... ... ...)
(ecb-mode-line-format) (setq ecb-method-buffer-needs-rebuild nil)))
ecb-rebuild-methods-buffer-after-parsing()
(if ecb-method-buffer-needs-rebuild
(ecb-rebuild-methods-buffer-after-parsing))
(progn (setq ecb-method-buffer-needs-rebuild t)
(semantic-bovinate-toplevel t) (if ecb-method-buffer-needs-rebuild
(ecb-rebuild-methods-buffer-after-parsing)) (when scroll-to-top
(save-selected-window ...)))
(if (and (equal ... ecb-frame) (get-buffer-window
ecb-methods-buffer-name)) (progn (setq ecb-method-buffer-needs-rebuild
t) (semantic-bovinate-toplevel t) (if ecb-method-buffer-needs-rebuild
...) (when scroll-to-top ...)))
(when (and (equal ... ecb-frame) (get-buffer-window
ecb-methods-buffer-name)) (setq ecb-method-buffer-needs-rebuild t)
(semantic-bovinate-toplevel t) (if ecb-method-buffer-needs-rebuild
(ecb-rebuild-methods-buffer-after-parsing)) (when scroll-to-top
(save-selected-window ...)))
ecb-update-methods-buffer--internal()
(progn (ecb-select-source-file ecb-path-selected-source)
(ecb-update-methods-buffer--internal))
(if (and (equal ... ecb-frame) ecb-auto-update-methods-after-save
ecb-last-edit-window-with-point (equal ... ...)) (progn
(ecb-select-source-file ecb-path-selected-source)
(ecb-update-methods-buffer--internal)))
(when (and (equal ... ecb-frame) ecb-auto-update-methods-after-save
ecb-last-edit-window-with-point (equal ... ...)) (ecb-select-source-file
ecb-path-selected-source) (ecb-update-methods-buffer--internal))
ecb-update-methods-after-saving()
run-hooks(after-save-hook)
basic-save-buffer()
save-buffer(1)
* call-interactively(save-buffer)
recursive-edit()
byte-code("�!��� ���!�p�� � �+eb�� �`��!��y�`|�� �
@�>�N
