Dear Paul,
I suspect an inconsistency between JDE2.1.5 and 2.1.6.
With JDE2.1.5, my speedbar list class, methods and variables
under each filename. With JDE2.1.6, and with no other changes
in settings except for the JDE search path, my speedbar
only shows a package name under each filename.
My speedbar works fine with other lanugage modes, C++ and elisp.
I am using emacs20.5.1 on windows NT. My _emacs file is
attached.
Thank you very much.
Jun
Please reply to my direct mail at [EMAIL PROTECTED]
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com
;;;; Jun's .emacs (site-start.el)
; Last Modified: January 2000
;
; Each section in this file is introduced by a line beginning with
; four semicolons; and each entry is introduced by a line beginning
; with three semicolons.
;
; Put .emacs under $HOME$\
; If you do not want to specify a HOME directory, rename .emacs to
; emacs/lisp/site-start.el.
;
; Restart emacs to let the changes made in .emacs to take effect
;;;; ----------------------------------------------------------------
;;;; The Help key
;;;; ----------------------------------------------------------------
;;;; load-path
; When emacs loads a lisp file(library), it searches for the library
; in a list of directories specified by the variable load-path.
; Here, we append additional directories to the default load-path.
;
; If you get "cannot load file" error messages, most likely you
; need to specifically append the directories to load-path here.
;
; Normally, packages not included in stardard distribution should
; be installed under site-lisp directory.
(setq load-path
(append (list
;; current working directory
nil
;; site-lisp directory
"d:/unixhome/emacs/site-lisp/"
;; Auctex for Latex
"d:/unixhome/emacs/site-lisp/auctex/"
;; Speedbar for several programming modes
"d:/unixhome/emacs/site-lisp/semantic-1.1/"
"d:/unixhome/emacs/site-lisp/speedbar-0.11/"
;; JDE Java Development Environment
"d:/unixhome/emacs/site-lisp/jde-2.1.5"
)
load-path))
;;; -----------------------------------------------------------------
;;; Text mode and Auto Fill Mode
; are for writers who want to start writing prose rather than code.
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;; -----------------------------------------------------------------
;;; Display column number in the mode line.
(column-number-mode t)
;;; This is how you bind a mode to a (range of) file-suffixes
;(add-to-list 'auto-mode-alist
; '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
;;; -----------------------------------------------------------------
;;; Default frame and color settings
(setq default-frame-alist '(
(top . 000) (left . 000)
(width . 80) (height . 48)
(cursor-color . "red")
(background-color . "wheat")
(vertical-scroll-bars . right)
)
)
;;; M-x list-colors-display gives an exhausting list of colors
;;; experiment by using eg
;;; M-x set-mouse-color RET magenta RET
;;; M-x set-cursor-color RET red RET
;;; M-x set-background-color RET black RET
;;; M-x set-foreground-color RET yelow RET
;;; -----------------------------------------------------------------
;;; some useful additional settings
(setq display-time-24hr-format t) ; In 24 hour format
(display-time) ; Display the time
(setq-default auto-fill-function 'do-auto-fill)
(setq fill-column 78)
(put 'eval-expression 'disabled nil)
;;; no emacs start-up message
(setq inhibit-startup-message t)
;;;; -----------------------------------------------------------------
;;;; Redefine some keys (choose the ones you like...)
; Note that Ctrl-Insert copies the region from the mark (set by
; Ctrl-space) and to the current position. This is Yanked by
; Shift-Insert (or C-y)
;
;;; set the ALT key to activate the menu (F10 also does this)
(setq w32-pass-alt-to-system t)
;(setq kill-whole-line t) ; Kill EOL too
;(global-set-key [kp-home] 'beginning-of-line)
;(global-set-key [kp-end] 'end-of-line)
;(global-set-key [home] 'beginning-of-line)
;(global-set-key [end] 'end-of-line)
;(global-set-key [C-home] 'beginning-of-buffer)
;(global-set-key [C-end] 'end-of-buffer)
;(global-set-key [S-delete] 'clipboard-kill-region)
;(global-set-key [S-insert] 'clipboard-yank)
;(global-set-key [C-insert] 'clipboard-kill-ring-save)
;(global-set-key [S-right] 'set-mark-command)
(global-set-key [f1] 'goto-line) ; goto line
;(global-set-key [delete] 'delete-char) ; delete character under
;cursor
(global-set-key [f3] 'delete-other-windows);
(global-set-key [f4] 'indent-three-spaces) ; indent 3 spaces
(global-set-key [f8] 'kill-current-line) ; delete current line
(global-set-key [f7] 'kill-current-or-next-word) ; delete current
word
(global-set-key [?\C-z] 'undo); added here because I usually do kills by
mistake
(global-set-key [f11] 'TeX-next-error) ; goto next found
; LaTeX error
(global-set-key [f12] 'next-error) ; goto next found lacheck
; error (run Check first)
;;; Define function that indents three spaces.
(defun indent-three-spaces ()
"Indent three spaces."
(interactive)
(beginning-of-line)
(insert " ")
(next-line 1)
)
;;; Define function that removes the current line.
(setq kill-whole-line t)
(defun kill-current-line ()
"Delete the current line."
(interactive)
(beginning-of-line)
(kill-line)
)
;;; Define function that removes the current word.
(defun kill-current-or-next-word ()
"Delete current or next word."
(interactive)
(forward-word 1)
(backward-kill-word 1)
;(delete-char 1)
)
;;; -----------------------------------------------------------------
;;; Some translation problems between unix and dos
;;; prevent echoing ^M in the shell
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
;;; if you have a network connection with UNIX like environment
;;; take care of CR/LF disabling if NTemacs manages (load/save) files on it
;;; ftp://ftp.sunet.se/pub/os/Win32/ntEmacs/docs/ntemacs.html#translation
(load "untranslate")
(add-untranslated-filesystem "e:") ; e: is a UNIX drive
;;; if you encounter a file with ^M or ... at the end of every line,
;;; this means a wrong copy by samba or floppy disk of the DOS file to UNIX.
;;; get rid of them by pressing [F5]
(global-set-key [f5] 'cut-ctrlM) ; cut all ^M.
(defun cut-ctrlM ()
"Cut all visible ^M."
(interactive)
(beginning-of-buffer)
(while (search-forward "\r" nil t)
(replace-match "" nil t))
)
;;; -----------------------------------------------------------------
;;; Ispell
(autoload 'ispell-word "ispell" "Check the spelling of word in buffer." t)
(autoload 'ispell-region "ispell" "Check the spelling of region." t)
(autoload 'ispell-buffer "ispell" "Check the spelling of buffer." t)
(global-set-key "\e$" 'ispell-word)
;;; -----------------------------------------------------------------
;;; fontification font-lock.el much better than the default hilit19.el
;;; (for coloring)
;;; automatic Font Lock mode in TeX mode
;;; (add-hook 'tex-mode-hook 'turn-on-font-lock)
;;; if Font Lock necessary for other than .tex files, uncomment following
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(if window-system
(require 'font-latex))
;;; -----------------------------------------------------------------
;;; stig-paren.el, a parentheses matching much better than the default
paren.el
;;; (for better view of matched parentheses)
(load "stig-paren")
(cond (window-system
(require 'stig-paren)
;;; XEmacs
(global-set-key [(control leftparen)] 'stig-paren-toggle-dingaling-mode)
(global-set-key [(control rightparen)] 'stig-paren-toggle-sexp-mode))
(t
(setq blink-matching-paren t)))
;;; -----------------------------------------------------------------
;;;settings for bib-cite.el
(require 'imenu)
(define-key global-map [S-mouse-3] 'imenu)
(autoload 'turn-on-bib-cite "bib-cite")
(add-hook 'LaTeX-mode-hook 'turn-on-bib-cite)
;;; -----------------------------------------------------------------
;;; settings for html-helper-mode
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;;; to invoke html-helper-mode automatically on .html files, do this:
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode)
auto-mode-alist))
(defvar html-helper-address-string
"<A HREF=\"mailto:[EMAIL PROTECTED]\">Claus Dethlefsen</A>"
"*The default author string of each file.")
(defvar html-helper-use-expert-menu t)
(setq font-lock-background-mode t)
(setq html-helper-mode-uses-visual-basic nil)
(setq visual-basic-mode-hook nil)
;;; Browse to URL using default browser
;The following makes `browse-url' use whichever browser you have set as
;the default (Netscape, Internet Explorer, etc.)
(setq browse-url-browser-function 'browse-url-default-windows-browser)
;******************************************************************************
;* Header
*
;******************************************************************************
(load "header") ; M-x make-header i diverse filer
;;; -----------------------------------------------------------------
;;; Matlab
(autoload 'matlab-mode "matlab" "Enter Matlab mode." t)
(setq auto-mode-alist (cons '("\\.m$" . matlab-mode) auto-mode-alist))
(defun my-matlab-mode-hook ()
(setq matlab-indent-function t) ; if you want function bodies indented
(setq fill-column 76) ; where auto-fill should wrap
(turn-on-auto-fill))
(setq matlab-mode-hook 'my-matlab-mode-hook)
(autoload 'matlab-shell "matlab" "Interactive Matlab mode." t)
(defun my-matlab-shell-mode-hook ()
'())
(setq matlab-mode-hook 'my-matlab-mode-hook)
;;; -----------------------------------------------------------------
;;; invoke auc-tex
(load "tex-site")
(add-to-list 'TeX-command-list
(list "HalfSize" "psnup -2 %f %s.2.ps"
'TeX-run-command nil t)
)
(add-to-list 'TeX-command-list
(list "SmallGhostview" "gsview32.exe %s.2.ps"
'TeX-run-command nil t)
)
;;; If you want '\' to be bound to the function TeX-electric-macro. This
;;; makes AucTeX prompt and make completion for the commands.
;(define-key TeX-mode-map "\\" 'TeX-electric-macro)
;;; This will enable a danish dictionary as default
;(add-hook 'TeX-language-dk-hook
; (function (lambda () (ispell-change-dictionary "danish"))))
;;; If you want to make AUC TeX aware of style files and multi-file
;;; documents right away.
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil); Query for Master file
;;; The masterfile concept is very powerfull for running latex on
;;; multi-file documents. Create a "master-file" that includes other
;;; files. Auctex keeps track of all labels etc. in the auto
;;; directories, so that you can make completion (ESC TAB) on \ref{ and
;;; \cite{
;;; At a command prompt, call 'etags *.tex'
;;; this will enable the command M-x tags-query-replace which can be
;;; used to search and replace a string in multiple files.
;;; -----------------------------------------------------------------
;;; for gnuclientw
;;; Enables Yap and Emacs to communicate so that Yap starts at the
;;; current line in Emacs. Double-click at a line in Yap to go to the
;;; position in the .tex file.
;;; In the filemanager, associate eg. .bib, .tex, .txt files with emacs
;;; by the command:
;;; ~\emacs\bin\gnuclientw.exe "%1"
;;; Double-clicking on such a file will start a new buffer in emacs (or
;;; start an emacs) with the file.
(require 'gnuserv)
(gnuserv-start)
(setq gnuserv-frame (selected-frame))
;;; -----------------------------------------------------------------
;;; OUTLINE
(setq outline-minor-mode-prefix "\C-c\C-o")
(setq TeX-outline-extra
'(("[ \t]*\\\\\\(bib\\)?item\\b" 7)
("\\\\bibliography\\b" 2)))
;;; -----------------------------------------------------------------
;;; reftex
(autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t)
(autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
(autoload 'reftex-citation "reftex-cite" "Make citation" nil)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode
(add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode
(setq reftex-plug-into-AUCTeX t) ; faar reftex og AUCTeX til at spille
sammen
(setq bib-cite-use-reftex-view-crossref t)
(setq reftex-cite-format 'natbib)
(add-hook 'reftex-load-hook
'(lambda ()
(define-key reftex-mode-map [(alt mouse-1)]
'reftex-mouse-view-crossref)))
;;;end of the original site-start.el
;;;; ----------------------------------------------------------------
;;;; JDE Java Development Environment
(require 'jde)
(defun my-jde-mode-hook ()
(setq c-basic-offset 2))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
; These custom set variables are automatically saved here when
; "save for future seesion" is selected from customizing JDE.
(custom-set-variables
'(printer-name "lj339.index.berkeley.edu:lj339" t)
'(jde-run-read-vm-args nil)
'(ps-printer-name "lj339.index.berkeley.edu:lj339")
'(tab-stop-list (quote (4 8 12 16 20 24 32 40 48 56 64 72 80 88 96 104 112
120)))
'(jde-quote-classpath nil)
'(jde-run-read-app-args t)
'(jde-db-source-directories (quote ("."
"d:\\app\\program\\jdk1.2.2\\src.jar")))
'(jde-compiler "d:\\app\\program\\jdk1.2.2\\bin\\javac")
'(jde-jdk-doc-url "d:\\app\\program\\jdk1.2.2\\docs\\api\\index.html")
'(jde-db-debugger (quote ("d:\\ntpro\\jdk1.2.2\\jdb" . "Executable")))
'(jde-global-classpath (quote ("." "e:\\pro\\java\\"
"d:\\app\\program\\jdk1.2.2\\lib\\classes111.zip")))
'(jde-run-java-vm "d:\\app\\program\\jdk1.2.2\\bin\\java")
'(jde-run-java-vm-w "d:\\app\\program\\jdk1.2.2\\bin\\javaw")
(custom-set-faces)
