Guten Tag.
my OS/JDEE-version/emacs are identical to yours.
save your ~/.emacs to ~/.emacs.bk
in ~/.emacs get rid of all except the jde part
reopen emacs, open .java file and see if JDE menu is there
no reason it should not be.
then you can re-add parts of your original .emacs and retest jde after
each step.
Attached is my .emacs which works for latest beta of jdee
regards,
Slava
;;alias emacs=emacs -l ~/.emacsGnu -bg white -fg navy -fn lucidasanstypewriter-12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This is a sample start-up file for emacs. It should be saved with
; the name ".emacs" in your home directory.
;
; Through this file you can tailor emacs to your needs. Lines starting
; with semicolon are comments so to add a feature take away the
; semicolons and to disable a feature add semicolons in front of
; lines.
;
;;;;;;;;;;;;;;; Customizing f1-10 buttons;;;;;;;;;;;;;;;;
;; Make F1 invoke help
(global-set-key [f1] 'help-command)
;; Shift-F1 is "command-history-mode"
(global-set-key [S-f1] 'command-history-mode)
;; Make F2 be `undo'
(global-set-key [f2] 'undo)
;; Make F3 be `copy'
;;(global-set-key [f3] "\M-w")
;; Make F3 toggle `transient-mode'
(global-set-key [f3] 'transient-mark-mode)
;;Make F4 paste
(global-set-key [f4] "\C-y")
;;Make F5 cut & copy
(global-set-key [f5] "\C-w")
;; Shift-F4 is "pop mark off of stack"
(global-set-key [S-f4] (lambda () (interactive) (set-mark-command t)))
;; make f6 kill-buffer
(global-set-key [f6] 'kill-buffer)
;; Make F7 be `find-file'
(global-set-key [f7] 'find-file)
;; Make F8 be `save-buffer'
(global-set-key [f8] 'save-buffer)
;; Make F9 be `what-line'
(global-set-key [f9] 'what-line)
;; Make F10 be 'goto-line'
(global-set-key [f10] 'goto-line)
;; Make F11 be `font-lock-fontify-buffer'
(global-set-key [f11] 'font-lock-fontify-buffer)
;; Shift-F11 is "show-paren-mode" enables & disables this mode
(global-set-key [S-f11] 'show-paren-mode)
;; Make F12 be paste the buffer
(global-set-key [f12] 'compile)
;; Shift-F12 is "load-file"
(global-set-key [S-f12] 'load-file)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; Miscellaneous
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; fontifying with hilit
;;(load hilit19)
; Avoid the message at start-up time
(defconst inhibit-startup-message t)
; Make the emacs window blink instead of giving a beep on error.
;(setq visible-bell t)
; Make it default that regions can be turned downcase by C-x C-l.
(put 'downcase-region 'disabled nil)
; Turn on displaying coloumn number
(column-number-mode t)
; Emacs is happy to save files without a final newline; other Unix programs
; hate that! This line will make sure that files end with newlines.
(setq require-final-newline t)
; Prevent Emacs from extending file when pressing down arrow at end of buffer.
(setq next-line-add-newlines nil)
; This feature makes emacs work as a server. From the command line
; (xterm) a new file can be edited by typing "emacsclient <<fname>", it
; will then go into the already existing emacs window. Files from CMZ
; and Pine are registered as temporary files.
;(server-start)
;(setq server-temp-file-regexp "pico.*\\|cmedt.*")
; Turn on a far better mode for editing LaTeX files.
;(require 'tex-site)
; Let PS files from emacs be printed with 2 on each page.
(setq ps-lpr-command "netscapeprint")
; Make a few standard keybindings.
(global-set-key "\M-$" 'ispell-word)
(global-set-key "\C-z" 'backward-delete-char)
(global-set-key "\C-x\C-b" 'electric-buffer-list)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Directory for possible private *.el & *.elc files for customization
(if (file-accessible-directory-p "~/emacs")
(setq load-path (cons "~zimine/bin" load-path)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Fortran mode stuff
;;
(setq auto-mode-alist
(cons (cons "\\.inc$" 'fortran-mode) auto-mode-alist))
(setq auto-mode-alist
(cons (cons "\\.car" 'fortran-mode) auto-mode-alist))
(setq auto-mode-alist
(cons (cons "\\.cra" 'fortran-mode) auto-mode-alist))
(setq auto-mode-alist
(cons (cons "\\.f" 'fortran-mode) auto-mode-alist))
(setq auto-mode-alist
(cons (cons "\\.g" 'fortran-mode) auto-mode-alist))
(add-hook 'fortran-mode-hook
'(lambda ()
(fortran-auto-fill-mode 1) ; Autosplit long lines when TAB/RET/SPC
(defun fortran-use-geant-indentation ()
"Change the indentation in fortran mode to just 2"
(interactive)
(setq fortran-minimum-statement-indent-fixed 2))
(local-set-key "\C-c\C-zf" 'fortran-use-geant-indentation)
;
; RET only reindents when "most likely to be necessary";
; here we define a function to do first fortran-indent-line and then
; the usual fortran-indent-new-line (which has misleading help).
; Our new function is named similarly to its KUMAC mode equivalent.
; It can be bound to [return] by uncommenting the appropriate line below.
;
(defun fortran-reindent-then-newline-and-indent ()
"Does what help for fortran-indent-new-line describes,
without any restrictions on contents of current line."
(interactive)
(fortran-indent-new-line))
(local-set-key [return] 'fortran-reindent-then-newline-and-indent)
;
(setq fortran-continuation-string "&"
comment-line-start "*" ; Default "c", for auto-made comments
fortran-comment-region "* "; Default "c$$$", when C-c ;
fortran-comment-indent-style "relative" ; Indentation for com.
fortran-comment-indent nil ; nil = don't change indent of comments
fortran-do-indent 2 ; Indentation in DO loops (default 3)
fortran-if-indent 2 ; Indentation in IF blocks (default 3)
fortran-blink-matching-if 1))); Show if/endif match when TAB pressed
; CMZ stuff
(setq auto-mode-alist
(cons (cons "\\.edt" 'fortran-mode) auto-mode-alist))
; Pine stuff
(setq auto-mode-alist
(cons (cons "pico\.[0-9]+" 'text-mode) auto-mode-alist))
; Text mode stuff
(add-hook 'text-mode-hook
'(lambda ()
(auto-fill-mode)))
; TEX stuff
(add-hook 'LaTeX-mode-hook
'(lambda ()
(outline-minor-mode)
(auto-fill-mode)
; (hide-body)
; Some AUC Tex stuff.
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)))
;; Kumac stuff
;
; (autoload 'kumac-mode "kumac-mode" "Mode for editing KUMAC files." t)
; (setq auto-mode-alist
; (cons (cons "\\.kumac$" 'kumac-mode) auto-mode-alist))
;
; (setq kumac-mode-hook
; '(lambda ()
; (setq kumac-comment-line-extra-indent 0
; kumac-comment-indent-style 'relative)
; (abbrev-mode 1)))
;
;; Browse-url stuff
(autoload 'browse-url-at-point "browse-url"
"Ask a WWW browser to load the URL at or before point." t)
(autoload 'browse-url-at-mouse "browse-url"
"Ask a WWW browser to load a URL clicked with the mouse." t)
(autoload 'browse-url-of-buffer "browse-url"
"Ask a WWW browser to display BUFFER." t)
(autoload 'browse-url-of-file "browse-url"
"Ask a WWW browser to display FILE." t)
(autoload 'browse-url-of-dired-file "browse-url"
"In Dired, ask a WWW browser to display the file named on this line." t)
; Bind the browse-url commands to keys with the `C-c C-z' prefix
; (as used by html-helper-mode):
(global-set-key "\C-c\C-z." 'browse-url-at-point)
(global-set-key "\C-c\C-zb" 'browse-url-of-buffer)
(global-set-key "\C-c\C-zu" 'browse-url)
(global-set-key "\C-c\C-zv" 'browse-url-of-file)
(add-hook 'dired-mode-hook
(function (lambda ()
(local-set-key "\C-c\C-zf" 'browse-url-of-dired-file))))
;;;;;;;;;;;;;Fontifying buffers
;loading the custom faces
;;(load-file "~/.my-faces.el")
;;;; Turn on lazy font-lock-mode in all type of buffers.
(setq font-lock-maximum-decoration t)
(global-font-lock-mode t)
(setq font-lock-support-mode 'lazy-lock-mode)
;;;;Cyrillic setup;;;;;;;;;;;;;
;;(load-file "~/.rusup.el")
;;;;;;;;;;;;;;;;;;;my new changes;;;;;;;;;;
;;Mon Nov 5 02:35:43 CET 2001
;;; netbeans support of emacs as external editor
;(setq load-path (cons "~/memacs/src/emacs/src/org/netbeans/modules/emacs" load-path))
;(require 'swingtext)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;mouse wheel suppport
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;http://koala.ilog.fr/colas/mouse-wheel-scroll/#gnuemacs
;;; version one
(defun up-slightly () (interactive) (scroll-up 7))
(defun down-slightly () (interactive) (scroll-down 7))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)
;;;; version two
; (defun scroll-up-half ()
; "Scroll up half a page."
; (interactive)
; (scroll-up (/ (window-height) 2))
; )
;
; (defun scroll-down-half ()
; "Scroll down half a page."
; (interactive)
; (scroll-down (/ (window-height) 2))
; )
; (global-set-key [(mouse-5)] 'scroll-up-half)
; (global-set-key [(mouse-4)] 'scroll-down-half)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; JDE SETUP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This .emacs file illustrates the minimul setup
;; required to run the JDE.
;; 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/share/emacs/site-lisp/jde/lisp"))
(add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp/semantic"))
(add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp/speedbar"))
(add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp/eieio"))
(add-to-list 'load-path (expand-file-name "/usr/share/emacs/site-lisp/elib"))
;; 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 two spaces.
(defun my-jde-mode-hook ()
(setq c-basic-offset 2))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
;; Include the following only if you want to run
;; bash as your shell.
;; 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.
;;;; JDE custom set variables;;;;;;;
(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.
'(delete-selection-mode nil nil (delsel))
'(jde-bug-jdk-directory "/soft/fftsoft/jdk1.3.1")
'(jde-bug-jpda-directory "/soft/fftsoft/jdk1.3.1")
'(jde-bug-local-variables t)
'(jde-bug-vm-includes-jpda-p t)
'(jde-db-source-directories (quote ("./" "/soft/fftsoft/java/src")))
'(jde-debugger (quote ("JDEbug")))
'(jde-global-classpath (quote ("$CLASSPATH" "./")))
'(scroll-bar-mode (quote right)))
(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.
)
