Dear Sir/Madam at JDE,
I was very delighted to find out about JDE. However,
I am having problems running the speedbar under JDE.
The problem is: when I try to expand a class name
(by clicking on the + sign in front of a java file name),
it does NOT show any variable names, method names or
anything else in the speedbar. It only shows something
like a package name.
For example, when I click on the "+" sign in front
of Interger.java in the speedbar, it only displays
"=>java.lang"
However, I am using the latest speedbar package and it
works fine with my C++ and Elisp codes. That is I can
see variable, methods under a class, and jump to them
from the speedbar.
I have attached my _emacs file. I am not using other
init file like site-start.el. The rest should be self
explantory in _emacs.
I am not on the mailing list. I would appreciate if
you reply to my school account at [EMAIL PROTECTED]
Thank you very much.
Jun Shu
________________________________________________________________________
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.6/lisp"
)
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)
