Hi all,
I've searched the list archives and don't see this exact error. There were
others for (wrong-number-of-arguments...) but relating to different modules.
Any help is greatly appreciated with this.
I get the following error when loading jde...
Debugger entered--Lisp error: (wrong-number-of-arguments #[(&optional integers reuse)
[ad-return-value isearch-mode senator-isearch-semantic-mode integers isearch-string
reuse nil ((byte-code "���" [senator-isearch-semantic-mode t] 1))
senator-re-search-forward ad-Orig-re-search-forward] 5 "$ad-doc: re-search-forward$"
"sRE search: "] 3)
re-search-forward("^BABYL OPTIONS:[ ]*-\\*-[ ]*rmail[ ]*-\\*-" 97121
t)
auto-coding-from-file-contents(97120)
set-auto-coding("/home/mngarimu/.emacs-data/jde-2.3.2/lisp/jde-bug.el" 97120)
insert-file-contents("/home/mngarimu/.emacs-data/jde-2.3.2/lisp/jde-bug.el")
load-with-code-conversion("/home/mngarimu/.emacs-data/jde-2.3.2/lisp/jde-bug.el"
"jde-bug" nil t)
require(jde-bug)
eval-buffer(#<buffer *load*<2>> nil "jde" nil t)
load-with-code-conversion("/home/mngarimu/.emacs-data/jde-2.3.2/lisp/jde.el" "jde"
nil t)
require(jde)
eval-buffer(#<buffer *load*> nil "~/.emacs" nil t)
load-with-code-conversion("/home/mngarimu/.emacs" "~/.emacs" t t)
load("~/.emacs" t t)
with a number of non-printable characters (omitted here for readability).
Now the version stuff...
Host platform: Cygwin 1.18-1 on WinXP Pro
JDEE version : 2.3.2
Emacs version: 21.2-11 (from Cygwin 1.18-1)
.emacs file :
;; ~/.emacs-data/default was previously loaded to provide add-to-load-path
;; instead give a defun for add-to-load-path since we don't know what else
;; "default" actually provides.
;;(load "~/.emacs-data/default")
(defun add-to-load-path (path)
(setq load-path (append load-path (list path))))
;; Add a generic directory from which to try and load files.
;; The majority of individual files will just be placed in this
;; directory. For elisp 'packages' that have their own directory
;; you should add each directory for the package individually.
(add-to-load-path "~/.emacs-data")
;; Remember you can use an X windows font selector to get this nasty
;; looking string.
;;(set-default-font "-adobe-courier-bold-r-normal-*-*-120-*-*-m-*-iso8859-1")
(setq frame-title-format "emacs - %b")
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(lpr-command "lpr" t)
'(lpr-switches (quote ("-h")) t)
'(printer-name "PT-DEV1-2" t)
'(ps-line-number t)
'(ps-lpr-command "lpr")
'(ps-lpr-switches (quote ("-h")))
'(ps-printer-name "PT-DEV1-2")
'(speedbar-frame-parameters (quote ((minibuffer) (width . 40) (border-width . 0)
(menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t)))))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)
(show-paren-mode)
(line-number-mode t)
(column-number-mode t)
;;----------------------------------------------------------------
;; HILIT19
;;----------------------------------------------------------------
(require 'hilit19)
(setq hilit-mode-enable-list '(not text-mode)
hilit-background-mode 'dark
hilit-inhibit-hooks nil
hilit-inhibit-rebinding nil
hilit-auto-highlight-maxout '60000000)
;;----------------------------------------------------------------
;; Python - mmmmmmmmmmmm
;;----------------------------------------------------------------
(require 'python-mode)
(setq auto-mode-alist
(append '(
("\\.py$" . python-mode)
)
auto-mode-alist)
)
(defun generic-python-mode-hook ()
)
(add-hook 'python-mode-hook 'generic-python-mode-hook)
;;----------------------------------------------------------------
;; m4
;;----------------------------------------------------------------
(setq auto-mode-alist
(append '(
("\\.m4" . m4-mode)
)
auto-mode-alist)
)
(defun generic-m4-mode-hook ()
)
(add-hook 'm4-mode-hook 'generic-m4-mode-hook)
;;----------------------------------------------------------------
;; c/c++-mode (and their derivatives...)
;;----------------------------------------------------------------
(setq auto-mode-alist
(append '(
("\\.pc" . c++-mode)
("\\.c" . c++-mode) ; to edit C code
("\\.h" . c++-mode) ; to edit C code
("\\.l$" . c++-mode)
("\\.y$" . c++-mode)
("\\.m$" . objc-mode)
)
auto-mode-alist)
)
(defun generic-c-mode-hook ()
(setq c-basic-offset 4)
(setq truncate-lines nil)
)
(add-hook 'c-mode-hook 'generic-c-mode-hook)
(add-hook 'c++-mode-hook 'generic-c-mode-hook)
;;----------------------------------------------------------------
;; P-SGML/SGML-MODE
;;----------------------------------------------------------------
(add-to-load-path "~/.emacs-data/psgml")
(require 'psgml)
(require 'sgml-mode)
(setq auto-mode-alist (append '(("\\.html" . html-mode)
("\\.htm" . html-mode)
("\\.sgml" . sgml-mode)
("\\.xml" . xml-mode)
("\\.dtd" . sgml-mode)
)
auto-mode-alist
)
)
;; I have next to no idea exactly what the sgml packages uses this function for
;; but things don't seem to work without it!
(setq after-change-function '(lambda ()
t))
;;----------------------------------------------------------------
;; ELIB
(add-to-load-path "~/.emacs-data/elib")
;;----------------------------------------------------------------
;; EIEIO
(add-to-load-path "~/.emacs-data/eieio")
;;----------------------------------------------------------------
;; SEMANTIC
(add-to-load-path "~/.emacs-data/semantic-1.4.2")
(setq semantic-load-turn-everythin-on nil)
(require 'semantic-load)
;;----------------------------------------------------------------
;; JDE/java-mode
;;----------------------------------------------------------------
(add-to-load-path "~/.emacs-data/jde-2.3.2/lisp")
(require 'jde)
;;----------------------------------------------------------------
;; tex-mode
;;----------------------------------------------------------------
(setq tex-dvi-view-command
(if (eq window-system 'x) "xdvi" "dvi2tty * | cat -s"))
(setq auto-mode-alist
(append '(
("\\.tex$" . latex-mode)
)
auto-mode-alist)
)
(add-hook 'latex-mode-hook
'(lambda ()
(turn-on-auto-fill)
(setq truncate-lines nil)
)
)
;;----------------------------------------------------------------
;; haskell
;;----------------------------------------------------------------
(autoload 'haskell-mode "haskell-mode" "Major mode for editing Haskell." t)
(setq auto-mode-alist
(append '(
("\\.hs$" . haskell-mode)
("\\.lhs$" . haskell-mode)
)
auto-mode-alist)
)
;;----------------------------------------------------------------
;; clean
;;----------------------------------------------------------------
(autoload 'clean-mode "clean-mode" "Major mode for editing Clean." t)
(setq auto-mode-alist
(append '(
("\\.icl$" . clean-mode)
("\\.dcl$" . clean-mode)
)
auto-mode-alist)
)
;;----------------------------------------------------------------
;; idl
;;----------------------------------------------------------------
(autoload 'idl-mode "idl-mode" "Hmmm idl..." t)
(setq auto-mode-alist
(append '(
("\\.idl" . idl-mode)
)
auto-mode-alist)
)
;;----------------------------------------------------------------
;; makefiles
;;----------------------------------------------------------------
(setq compile-command "make")
(add-hook 'makefile-mode-hook '(lambda () (setq truncate-lines nil)))
;;----------------------------------------------------------------
;; emacs-lisp-mode
;;----------------------------------------------------------------
(add-hook 'emacs-lisp-mode-hook '(lambda () (setq truncate-lines nil)))
;;----------------------------------------------------------------
;; outline-mode
;;----------------------------------------------------------------
(add-hook 'outline-mode-hook '(lambda () (font-lock-mode)))
;;----------------------------------------------------------------
;; Map our own specific keys
;;----------------------------------------------------------------
(define-key global-map [home] 'beginning-of-line)
(define-key global-map [(C-home)] 'beginning-of-line-text)
(define-key global-map [end] 'end-of-line)
(define-key global-map [delete] 'delete-char)
(define-key global-map [(C-delete)] 'kill-word)
(define-key global-map [backspace] 'delete-backward-char)
(define-key global-map [(C-backspace)] 'backward-kill-word)
(define-key global-map [f1] 'goto-line)
(define-key global-map [(C-f1)] 'what-line)
(define-key global-map [f2] 'new-frame)
(define-key global-map [(C-f2)] 'delete-frame)
(define-key esc-map [f2] 'make-frame-on-display)
(define-key global-map [f3] 'indent-region)
;; (define-key global-map [(C-f3)] ')
;; (define-key esc-map [f3] ')
;; (define-key esc-map [(C-f3)] ')
(define-key global-map [f4] 'switch-to-buffer)
(define-key global-map [(C-f4)] 'kill-buffer)
(define-key esc-map [f4] 'eval-buffer)
;; (define-key esc-map [(C-f4)] ')
(define-key global-map [f5] 'fill-paragraph)
(define-key global-map [(C-f5)] 'fill-region)
(define-key esc-map [f5] 'fill-region-as-paragraph)
(define-key esc-map [(C-f5)] 'c-fill-paragraph)
(define-key global-map [f6] 'speedbar)
;; (define-key global-map [(C-f6)] ')
;; (define-key esc-map [f6] ')
;; (define-key esc-map [(C-f6)] ')
(define-key global-map [f7] 'ispell-buffer)
(define-key global-map [(C-f7)] 'ispell-region)
;; (define-key esc-map [f7] ')
;; (define-key esc-map [(C-f7)] ')
(define-key global-map [f8] 'c-indent-new-comment-line)
(define-key global-map [(C-f8)] 'indent-new-comment-line)
(define-key esc-map [f8] 'comment-region)
(define-key esc-map [(C-f8)] 'uncomment-region)
(define-key global-map [f9] 'compile)
(define-key global-map [(C-f9)] 'kill-compilation)
(define-key esc-map [f9] 'gdb)
;; (define-key esc-map [(C-f9)] ')
(define-key global-map [f10] 'next-error)
(define-key global-map [(C-f10)] 'previous-error)
;; (define-key esc-map [f10] ')
;; (define-key esc-map [(C-f10)] ')
(define-key global-map [f11] 'revert-buffer)
;; (define-key global-map [(C-f11)] ')
;; (define-key esc-map [f11] ')
;; (define-key esc-map [(C-f11)] ')
;; (define-key global-map [f12] ')
;; (define-key global-map [(C-f12)] ')
;; (define-key esc-map [f12] ')
;; (define-key esc-map [(C-f12)] ')
;; (speedbar)
backtrace buffer: included at top
Contents of *messages*:
Loading regexp-opt...done
Source file `/usr/share/emacs/21.2/lisp/hippie-exp.el' newer than byte-compiled file
Loading mule-util...done
auto-coding-from-file-contents:
Loading debug...done
Entering debugger...
[2 times]
There is no prj.el because this happens when I load jde at emacs startup.
--
mike\n.
