I downloaded and installed all new support files listed on the install page
and then updated my .emacs file, but no go.
I'm sure this is just a version thing, but I can't figure it out.
I've tried mixing and matching some of the older versions of speedbar,
semantic, and eieio that I have, but still no luck. Probably some stupid
typo on my part...
any help greatly appreciated
*****************************
**
** Table of Contents
** 1 - Error
** 2 - Versions
** 3 - .emacs file
**
*****************************
*****************************
**
** 1 - Error
**
*****************************
Debugger entered--Lisp error: (error "Too many arguments to `defclass'")
signal(error ("Too many arguments to `defclass'"))
error("Too many arguments to `defclass'")
(if (< 1 (length options-and-doc)) (error "Too many arguments to
`defclass'"))
(progn (aset newc class-doc (car options-and-doc)) (if (< 1 ...) (error
"Too many arguments to `defclass'")))
(if (stringp (car options-and-doc)) (progn (aset newc class-doc ...) (if
... ...)) (let* (... ... ...) (aset newc class-options co) (if ... ...
...)))
(let* ((pname ...) (newc ...) (clearparent nil)) (aset newc 0 (quote
defclass)) (aset newc class-symbol cname) (if (stringp ...) (progn ... ...)
(let* ... ... ...)) (if pname (progn ... ...) (if ... ... ... ... ...))
(eieio-copy-parents-into-subclass newc superclasses) (put cname (quote
eieio-class-definition) newc) (while fields (let* ... ... ... ... ... ...
... ... ...) (setq fields ...)) (aset newc class-public-a (nreverse ...))
(aset newc class-public-d (nreverse ...)) (aset newc class-public-doc
(nreverse ...)) (aset newc class-public-type (apply ... ...)) (aset newc
class-public-custom (nreverse ...)) (aset newc class-protection (nreverse
...)) (aset newc class-initarg-tuples (nreverse ...)) (aset newc
class-class-allocation-type (apply ... ...)) (aset newc
class-class-allocation-values (apply ... ...)) (set cname cname) (let* (...
... ... ... ... ... ...) (while pubsyms ... ... ... ... ...) (aset newc
class-symbol-obarray oa)) (fset cname (list ... ... ... ...)) (let (...)
(fset csym ...)) (let (...) (fset csym ...)) (put cname (quote
variable-documentation) (aref newc class-doc)) (if clearparent (aset newc
class-parent nil)) (if (and ... ...) (message "Bootstrapping
objects...done")) (let (...) (aset cache 0 ...) (aset cache object-class
cname) (aset cache object-name ...) (let ... ...) (aset newc
class-default-object-cache cache)) newc)
eieio-defclass(eieio-speedbar nil ((buttontype :initform nil :type symbol
:documentation "The type of expansion button used for objects of this
class.\nPossible values are those symbols supported by the `exp-button-type'
argument\nto `speedbar-make-tag-line'." :allocation :class) (buttonface
:initform speedbar-tag-face :type (or symbol face) :documentation "The face
used on the textual part of the button for this class.\nSee
`speedbar-make-tag-line' for details." :allocation :class) (expanded
:initform nil :type boolean :documentation "State of an object being
expanded in speedbar.")) ("Class which provides basic speedbar support for
child classes.\nAdd one of thie child classes to this class to the parent
list of a class." :abstract t))
(progn (eieio-defclass (quote eieio-speedbar) (quote nil) (quote ...)
(quote ...)))
(eval-and-compile (eieio-defclass (quote eieio-speedbar) (quote nil)
(quote ...) (quote ...)))
(defclass eieio-speedbar nil ((buttontype :initform nil :type symbol
:documentation "The type of expansion button used for objects of this
class.\nPossible values are those symbols supported by the `exp-button-type'
argument\nto `speedbar-make-tag-line'." :allocation :class) (buttonface
:initform speedbar-tag-face :type ... :documentation "The face used on the
textual part of the button for this class.\nSee `speedbar-make-tag-line' for
details." :allocation :class) (expanded :initform nil :type boolean
:documentation "State of an object being expanded in speedbar.")) "Class
which provides basic speedbar support for child classes.\nAdd one of thie
child classes to this class to the parent list of a class." :abstract t)
eval-buffer(#<buffer *load*<7>> nil "eieio-speedbar" nil t)
load-with-code-conversion("c:/cygwin/home/johns/emacs/eieio-0.17/eieio-speed
bar.el" "eieio-speedbar" nil t)
require(eieio-speedbar)
eval-buffer(#<buffer *load*<6>> nil "semantic-cb" nil t)
load-with-code-conversion("c:/cygwin/home/johns/emacs/semantic-1.4/semantic-
cb.el" "semantic-cb" nil t)
require(semantic-cb)
(progn (require (quote semantic-cb)) (require (quote semantic-ia-sb)))
eval((progn (require (quote semantic-cb)) (require (quote
semantic-ia-sb))))
mapcar(eval ((speedbar-add-supported-extension ".bnf") (progn (require
...) (require ...))))
load-with-code-conversion("c:/cygwin/home/johns/emacs/speedbar-0.14beta4/spe
edbar.el" "speedbar" nil t)
require(speedbar)
eval-buffer(#<buffer *load*<5>> nil "semantic-sb" nil t)
load-with-code-conversion("c:/cygwin/home/johns/emacs/semantic-1.4/semantic-
sb.el" "semantic-sb" nil t)
require(semantic-sb)
eval-buffer(#<buffer *load*<4>> nil "jde-parse" nil t)
load-with-code-conversion("c:/cygwin/home/johns/emacs/jde-2.2.9beta12/lisp/j
de-parse.el" "jde-parse" nil t)
require(jde-parse)
eval-buffer(#<buffer *load*<3>> nil "jde-db" nil t)
load-with-code-conversion("c:/cygwin/home/johns/emacs/jde-2.2.9beta12/lisp/j
de-db.el" "jde-db" nil t)
require(jde-db)
eval-buffer(#<buffer *load*<2>> nil "jde" nil t)
load-with-code-conversion("c:/cygwin/home/johns/emacs/jde-2.2.9beta12/lisp/j
de.el" "jde" nil t)
require(jde)
eval-buffer(#<buffer *load*> nil "~/.emacs" nil t)
load-with-code-conversion("c:/cygwin/home/johns/.emacs" "~/.emacs" t t)
load("~/.emacs" t t)
#[nil ",T
*****************************
**
** 2 - Versions
**
*****************************
(emacs> emacs --version
GNU Emacs 21.2.1
Copyright (C) 2001 Free Software Foundation, Inc.
GNU Emacs comes with ABSOLUTELY NO WARRANTY.
You may redistribute copies of Emacs
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING.
(johns> bash --version
GNU bash, version 2.05b.0(3)-release (i686-pc-cygwin)
Copyright (C) 2002 Free Software Foundation, Inc.
JDE 2.2.9beta12
(add-to-list 'load-path (expand-file-name "~/emacs/jde-2.2.9beta12/lisp"))
(add-to-list 'load-path (expand-file-name "~/emacs/semantic-1.4"))
(add-to-list 'load-path (expand-file-name "~/emacs/speedbar-0.14beta4"))
(add-to-list 'load-path (expand-file-name "~/emacs/elib-1.0"))
(add-to-list 'load-path (expand-file-name "~/emacs/eieio-0.17"))
*****************************
**
** 3 - .emacs
**
*****************************
;;;
;;; Emacs has lots I like, but vi rules for editing.
;;;
(setq viper-mode t)
(require 'viper)
;;; General stuff
(setq-default tab-width 4)
(setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40))
(setq make-backup-files nil)
(setq auto-save-default nil)
(setq load-path (nconc '( "~/emacs" ) load-path))
;;;(read-abbrev-file)
;;;(setq default-abbrev-mode t)
;;; the width includes the scroll bar,
;;; so make the width 81 to get 80 text columns
(setq default-frame-alist '((width . 81) (height . 40)))
;;; Why isn't this the default?
(setq delete-key-deletes-forward t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; Zap trailing white space.
(autoload 'nuke-trailing-whitespace "whitespace" nil t)
(add-hook 'mail-send-hook 'nuke-trailing-whitespace)
(add-hook 'write-file-hooks 'nuke-trailing-whitespace)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; Automatic Java header stuff
(defvar java-file-header-comment-file
"c:/My Documents/home/johns/emacs/file-header-comment.java"
"File to be inserted as the file header.")
(defvar java-class-header-comment-file
"c:/My Documents/home/johns/emacs/class-header-comment.java"
"File to be inserted as the class header.")
(setq user-full-name '"Stephen R. Johns")
(load "java-comments")
(add-hook 'java-mode-hook
'(lambda()
(define-key c-mode-map "\C-c\C-h" 'java-insert-header-comment)
(define-key c-mode-map "\C-c\C-c" 'java-insert-class-comment)
(define-key c-mode-map "\C-c\C-m"
'java-electric-insert--method-comment)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; Set up the printer
(setq ps-psnup-command "psnup")
(setq ps-psnup-switches '(" -l -2 -m.25in "))
(setq ps-psnup-buffer "c:\\\\temp\\\\psnup.ps")
(setq lpr-command "print")
(setq lpr-destination '("/c:\\\\129.162.109.121\\")) ;; for normal printer
(setq ps-lpr-destination '("/c:\\\\129.162.109.121\\")) ;; for postscript
printer
(setq ps-print-use-gs t) ; t - use ghostscript, nil - do not
(setq gs-print-command "/cygdrive/c/gs/gs7.03/bin/gswin32.exe")
(setq gs-print-switches '("-q -sDEVICE=mswinpr2 -r600 -dNOPAUSE"))
(setq gs-view-command "/cygdrive/c/GhostView/gsview/gsview32.exe")
(if (<= emacs-major-version 19) ; set the type of paper
(setq ps-paper-type 'ps-a4 ) ; for emacs < 20.x
(setq ps-paper-type 'a4 )) ; for emacs since 20.x
(require 'print-nt)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; XAE
;;; http://xae.sunsite.dk/
(add-to-list 'load-path (expand-file-name "~/emacs/xae-1.0beta6/lisp"))
(require 'xae)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;; Make the sequence "C-x w" execute the `what-line' command,
;; which prints the current line number in the echo area.
(global-set-key "\C-xw" 'what-line)
;; set up the function keys to do common tasks to reduce Emacs pinky
;; and such.
;; Make F1 invoke help
(global-set-key [f1] 'help-command)
;; Make F2 be `undo'
(global-set-key [f2] 'undo)
;; Make F3 be `find-file'
;; Note: it does not currently work to say
;; (global-set-key 'f3 "\C-x\C-f")
;; The reason is that macros can't do interactive things properly.
;; This is an extremely longstanding bug in Emacs. Eventually,
;; it will be fixed. (Hopefully ..)
(global-set-key [f3] 'find-file)
;; Make F4 be "mark", F5 be "copy", F6 be "paste"
;; Note that you can set a key sequence either to a command or to another
;; key sequence.
(global-set-key [f4] 'set-mark-command)
(global-set-key [f5] "\M-w")
(global-set-key [f6] "\C-y")
;; Shift-F4 is "pop mark off of stack"
(global-set-key [(shift f4)] (lambda () (interactive) (set-mark-command t)))
;; Make F7 be `save-buffer'
(global-set-key [f7] 'save-buffer)
;; Make F8 be "start macro", F9 be "end macro", F10 be "execute macro"
(global-set-key [f8] 'start-kbd-macro)
(global-set-key [f9] 'end-kbd-macro)
(global-set-key [f10] 'call-last-kbd-macro)
;; This .emacs file illustrates the minimul setup
;; required to run the JDE.
;; Update the Emacs load-path to include the path to
;; the JDE. This code assumes that you have installed
;; the JDE in the specified subdirectory of your home
;; directory.
;;(setq load-path (nconc '( "~/emacs/jde-2.2.9beta12/lisp" ) load-path))
;;(setq load-path (nconc '( "~/emacs/semantic-1.4" ) load-path))
;;(setq load-path (nconc '( "~/emacs/speedbar-0.14beta4" ) load-path))
;;(setq load-path (nconc '( "~/emacs/elib-1.0" ) load-path))
;;(setq load-path (nconc '( "~/emacs/eieio-0.17" ) load-path))
(add-to-list 'load-path (expand-file-name "~/emacs/jde-2.2.9beta12/lisp"))
(add-to-list 'load-path (expand-file-name "~/emacs/semantic-1.4"))
(add-to-list 'load-path (expand-file-name "~/emacs/speedbar-0.14beta4"))
(add-to-list 'load-path (expand-file-name "~/emacs/elib-1.0"))
(add-to-list 'load-path (expand-file-name "~/emacs/eieio-0.17"))
;; (require 'overlay-fix)
;; Tell Emacs to load the entire JDE package at startup (only once).
(require 'jde)
(if (eq system-type 'windows-nt)
(defadvice browse-url-generic (around show-window act)
"*Sets `start-process-show-window' on."
(let ((w32-start-process-show-window t))
ad-do-it)))
(require 'jpack)
;;;;;;;;;;
;; Settings for Java source files
(defun my-jde-mode-hook ()
(setq tab-width 4)
(setq c-basic-offset 4)
(viper-mode)
)
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
;;;;;;;;;;
;; Setup Emacs to run bash as its primary shell.
(setq shell-file-name "bash")
(setq shell-command-switch "-c")
(setq explicit-shell-file-name shell-file-name)
(setenv "SHELL" shell-file-name)
(setq explicit-sh-args '("-login" "-i"))
(if (boundp 'w32-quote-process-args)
(setq w32-quote-process-args ?\")) ;; Include only for MS Windows.
;;;;;;;;;;
;; Configure Emacs to use the default browser on your system
;; to display the JDE documentation.
(defvar shell-execute-helper "shelex.exe")
(defun shell-execute-url (url &optional new-window)
"Invoke the shell-execute-helper program to call ShellExecute and
launch
or re-direct a web browser on the specified url."
(interactive "sURL: ")
(call-process shell-execute-helper nil nil nil url))
(setq browse-url-browser-function 'shell-execute-url)
;; ispell4:
;;
(autoload 'ispell-word "c:/cygwin/home/johns/emacs/ispell4/ispell4"
"Check spelling of word at or before point" t)
(autoload 'ispell-complete-word "c:/cygwin/home/johns/emacs/ispell4/ispell4"
"Complete word at or before point" t)
(autoload 'ispell-region "c:/cygwin/home/johns/emacs/ispell4/ispell4"
"Check spelling of every word in the region" t)
(autoload 'ispell-buffer "c:/cygwin/home/johns/emacs/ispell4/ispell4"
"Check spelling of every word in the buffer" t)
(setq ispell-command "c:/cygwin/home/johns/emacs/ispell4/exe/ispell.exe"
ispell-look-dictionary
"c:/cygwin/home/johns/emacs/ispell4/ispell.words"
ispell-look-command "c:/cygwin/home/johns/emacs/ispell4/exe/look.exe"
ispell-command-options (list "-d"
"c:/cygwin/home/johns/emacs/ispell4/ispell.dict")
)
;;; Commands added by calc-private-autoloads on Wed Oct 24 10:32:12 2001.
(autoload 'calc-dispatch "calc" "Calculator Options" t)
(autoload 'full-calc "calc" "Full-screen Calculator" t)
(autoload 'full-calc-keypad "calc" "Full-screen X Calculator" t)
(autoload 'calc-eval "calc" "Use Calculator from Lisp")
(autoload 'defmath "calc" nil t t)
(autoload 'calc "calc" "Calculator Mode" t)
(autoload 'quick-calc "calc" "Quick Calculator" t)
(autoload 'calc-keypad "calc" "X windows Calculator" t)
(autoload 'calc-embedded "calc" "Use Calc inside any buffer" t)
(autoload 'calc-embedded-activate "calc" "Activate =>'s in buffer" t)
(autoload 'calc-grab-region "calc" "Grab region of Calc data" t)
(autoload 'calc-grab-rectangle "calc" "Grab rectangle of data" t)
(setq load-path (nconc load-path (list
"c:/cygwin/home/johns/emacs/calc-2.02f")))
(global-set-key "\e#" 'calc-dispatch)
;;; End of Calc autoloads.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; gnu serv
;;;(setq load-path (nconc '( "~/emacs/gnuserv" ) load-path))
;;;(require 'gnuserv)
;;;(gnuserv-start)
;;;(setq gnuserv-frame (selected-frame))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; JDE Options
(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.
'(jde-build-use-make t)
'(jde-gen-get-set-var-template (quote ("'n>" "(P \"Variable type: \" type)
\" \"" "(P \"Variable name: \" name) \";\" 'n> 'n>" "\"/**\" 'n>" "\"*
Return the value of \" (s name) \".\" 'n>" "\"* @return the value of \" (s
name) \".\" 'n>" "\"*/\" 'n>" "\"public \" (s type) \" get\"
(jde-gen-init-cap (jde-gen-lookup-named 'name))" "\"() {\" 'n> \"return \"
(s name) \";\" 'n> \"}\" 'n> 'n>" "\"/**\" 'n>" "\"* Set the value of \" (s
name) \".\" 'n>" "\"* @param p\" (jde-gen-init-cap (jde-gen-lookup-named
'name)) \" the value to assign to \" (s name) \".\" 'n>" "\"*/\" 'n>"
"\"public void set\" (jde-gen-init-cap (jde-gen-lookup-named 'name))" "\"(\"
(s type) \" p\" (jde-gen-init-cap (jde-gen-lookup-named ' name)) \") {\" 'n>
(s name) \" = p\" (jde-gen-init-cap (jde-gen-lookup-named 'name)) \";\" 'n>
\"}\" 'n>")))
'(jde-gen-k&r nil)
'(jde-mode-abbreviations (quote (("ab" . "abstract") ("bo" . "boolean")
("byv" . "byvalue") ("cas" . "cast") ("ca" . "catch") ("ch" . "char") ("cl"
. "class") ("co" . "const") ("con" . "continue") ("de" . "default") ("dou" .
"double") ("el" . "else") ("ex" . "extends") ("fa" . "false") ("fi" .
"final") ("fin" . "finally") ("fl" . "float") ("fo" . "for") ("fu" .
"future") ("ge" . "generic") ("go" . "goto") ("impl" . "implements") ("impo"
. "import") ("ins" . "instanceof") ("inte" . "interface") ("lo" . "long")
("na" . "native") ("ne" . "new") ("nu" . "null") ("pa" . "package") ("pri" .
"private") ("pro" . "protected") ("pu" . "public") ("re" . "return") ("sh" .
"short") ("su" . "super") ("sw" . "switch") ("sy" . "synchronized") ("th" .
"this") ("thr" . "throw") ("throw" . "throws") ("tra" . "transient") ("tr" .
"true") ("vo" . "void") ("vol" . "volatile") ("wh" . "while")))))
(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.
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; JSerial
(require 'jserial)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; SWBuff
(require 'swbuff)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; Color Theme
(require 'color-theme)
;;;(color-theme-gnome2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
;;; PSGML
(require 'psgml)
(setq psgmlxpath "~/emacs/psgmlx-0.4")
(load (concat psgmlxpath "/init"))
(add-to-list 'auto-mode-alist '("\\.html" . sgml-mode))
(add-to-list 'auto-mode-alist '("\\.adp" . xml-mode))
(add-to-list 'auto-mode-alist '("\\.xml" . xml-mode))
(add-to-list 'auto-mode-alist '("\\.xsl" . xml-mode))
(add-to-list 'sgml-catalog-files "c:/cygwin/home/johns/emacs/dtd/CATALOG")
(setq sgml-markup-faces '((start-tag . font-lock-function-name-face)
(end-tag . font-lock-function-name-face)
(comment . font-lock-comment-face)
(pi . bold)
(sgml . bold)
(doctype . bold)
(entity . font-lock-type-face)
(shortref . font-lock-function-name-face)))
(setq sgml-set-face t)
(setq-default sgml-indent-data t)
;; Some convenient key definitions:
(define-key sgml-mode-map "\C-c\C-x\C-e" 'sgml-describe-element-type)
(define-key sgml-mode-map "\C-c\C-x\C-i" 'sgml-general-dtd-info)
(define-key sgml-mode-map "\C-c\C-x\C-t" 'sgml-describe)
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
Stephen R. Johns, Senior Research Analyst
Southwest Research Institute
[EMAIL PROTECTED] (210) 522-3484
