Hallo,
I have a problem getting JDE Menu in taskbar working. I have installed it as
per the instructions and even .emacs file is configured accordingly. Well, here's some
elementary info.:
Platform: SuSE Linux
JDEE Version: JDE-2.2.9beta7
Emacs Version: GNU - Emacs 21.1.1
.emacs files:
Well the .emacs file is divided for use of X-Emacs and GNUEmacs. So all
initialization for GNUEmacs comes thru' .gnu-emacs file. Well I wanted to give
only imp. parts of the file, but to be on the safer side, I provide all the
details, maybe u can be able to find the mistake. Here is my .gnu-emacs(it is
really big):
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File name: ` ~/.gnu-emacs '
;;; ---------------------
;;;
;;; Note: This file is for GNU-Emacs only ...
;;; GNU-Emacs is incompatible to X-Emacs. Therefore your
;;; personal ~/.emacs should load this file if your runnning
;;; the good old GNU-emacs.
;;;
;;; If you need your own personal ~/.gnu-emacs
;;; please make a copy of this file
;;; an placein your changes and/or extension.
;;;
;;; For emacs commands have a look onto the
;;; `emacs-revcard' in the directory /usr/doc/packages/emacs/
;;;
;;; Copyright 1993-2001 Werner Fink
;;; Copyright (c) 1996-2001 SuSE Gmbh Nuernberg, Germany.
;;; All rights reserved.
;;;
;;; Author: Werner Fink, <[EMAIL PROTECTED]> 1993-2001
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Debuging only
;; -------------
; (open-dribble-file "~/.dribble")
; (open-termscript "~/.termscript")
;;
;; Emacs makes backup by moving original files, to
;; avoid trouble with hardlinked files we may use:
;; -----------------------------------------------
; (defconst backup-by-copying-when-linked t)
;;
;; Rmail: We will place all Mail's an Mail-folders into ~/Mail
;; -----------------------------------------------------------
(if (file-accessible-directory-p "~/Mail/")
(setq rmail-secondary-file-directory "~/Mail/"))
;;
;; Prefix for mail-mode
;; ---------------------
(setq mail-yank-prefix "> ")
; (setq mail-archive-file-name "~/Mail/.CarbonCopy")
(setq mail-self-blind nil)
(setq mail-default-headers nil)
(setq mail-signature nil)
;;
;; Settings for message-mode
;; -------------------------
(setq message-from-style "angles")
(if (null mail-host-address)
(let ((tmph (getenv "HOSTNAME"))
(tmpf (getenv "FROM_HEADER")))
(if (or (null tmph) (not (string-match "\\." tmph)))
(setq tmph (system-name)))
(if (not (string-match "\\." tmph))
(setq mail-host-address "our.domain.is.not.set")
(string-match "\\." tmph)
(setq mail-host-address (substring tmph (match-end 0))))
(if (stringp tmpf)
(setq mail-host-address tmpf)))
(setq tmpf nil tmph nil))
;;
;; RMAILGEN: Folder im Rmail-Mode :-)
;; ----------------------------------
;;
;; 1. I want to define a mail directory that isn't `~/'
(if (file-accessible-directory-p "~/Mail/")
(setq rmailgen-default-directory "~/Mail/")) ; must end in slash
;;;
;; 2. I want 78 column
(add-hook 'mail-mode-hook (function (lambda () (setq fill-column 78))))
(if (file-exists-p "~/.abbrev_defs")
(progn (read-abbrev-file "~/.abbrev_defs")
(add-hook 'mail-setup-hook 'mail-abbrevs-setup)))
;;;
;; 3. By default, if mail-archive-file-name is non-nil then
;; archive file names will be generated automatically based on
;; the message to which a reply is being constructed. If I
;; wanted to turn this off I would put in a statement like
(setq rmailgen-archive-file-name nil)
;;;
;; 4. By default, rmailgen.el downcases generated filenames
;; If I wanted uppercase I would put in a statement like here.
(setq rmailgen-downcase "dummy")
;;;
;; 5. By default, rmailgen.el does not append `.gz' to generated
;; filenames. If I wanted such an extension I would put in a statement
;; like
(setq rmailgen-gzip-file-name t)
;;;
;; 6. By default, rmailgen.el will use generated FCC filenames even
;; if the file does not exist. If I wanted to FCC only if the file
;; already exists I would put in a statement like
;; (setq rmailgen-archive-only-if-exists t)
;;;
;; 7. Add my own personal output list for specific friends
;; and special subjects.
;;;
;; First define rmail-output-file-alist, just in case this
;; is not already defined. That is, may be
;; ../lisp/rmailout.el has not been loaded yet.
(if (not (boundp 'rmail-output-file-alist))
(defvar rmail-output-file-alist nil))
;;;
(setq rmail-output-file-alist
(append
(list
; ;; For my friends (some have strange account names).
; '("^From:[ \t]*.*jones.*" . "jmjones")
; '("^From:[ \t]*.*Joe[ \t]*Smith.*" . "joe")
;
; ;; Special subject lines.
; '("^Subject:[ \t]*.*crypt.*" . "crypt++")
; '("^Subject:[ \t]*.*rmailgen.*" . "genrmail")
; '("^Subject:[ \t]*.*dired-x.*" . "dired-x")
; '("^Subject:[ \t]*.*GNU Emacs 19 RMAIL Poll.*" . "rmail")
;
; ;; Add more entries here...
)
;;;
;; In case rmail-output-file-alist has been defined
;; already elsewhere.
rmail-output-file-alist))
;;;
;; 8. Load package [REQUIRED].
(if (file-exists-p "/usr/local/share/emacs/site-lisp/rmailgen.el")
(require 'rmailgen))
;;;Rmail with POP3
(setenv "MAILHOST" "pop.t-online.de")
(setq rmail-primary-inbox-list
'("po:cyberkaiser") rmail-pop-password-required t)
;;
;; Base text mode
;; ----------------------
(setq default-major-mode 'text-mode)
(line-number-mode 1)
(if (or (and (= emacs-major-version 19) (> emacs-minor-version 29))
(> emacs-major-version 19))
(progn
(column-number-mode 1)
(setq-default inhibit-eol-conversion t))
(require 'column)
(display-column-mode 1))
(global-set-key "\e\?" 'goto-line)
(setq-default require-final-newline "ask")
;;
;; Specials for X Window System
;; -------------------------
(if (not window-system)
;; ispell
;; ----------------------
;; (A few changes on ispell)
(setq ispell-highlight-face 'underline);)
;;
;; Some fonts
;; -----------------------
;; (require 'xfonts)
;;
;; mouse as arrow
;; --------------
(setq x-pointer-shape x-pointer-left-ptr)
(if (x-display-color-p)
(set-mouse-color "RoyalBlue")
(set-mouse-color (cdr (assq 'mouse-color (frame-parameters)))))
;;
;; Automatically replacing of fore- and background.
(if (not (x-display-color-p))
(progn
(set-face-background 'region
(cdr (assq 'foreground-color (frame-parameters ))))
(set-face-foreground 'region
(cdr (assq 'background-color (frame-parameters ))))
;; ispell
;; ----------------------
;; (A few changes on ispell)
(setq ispell-highlight-face 'underline)))
;;
;; Highlighting of special emacs modes
;; -----------------------------------
;; We now use font lock mode, see below
;; Slow on big files
(setq-default hilit-quietly t)
(setq-default hilit-auto-rehighlight 150)
(setq-default hilit-auto-highlight-maxout 80000)
;; NOTE:
;; `t' only usefull on changing fonts
(setq-default hilit-face-check nil)
;; GNUS has it's own highlighting/face-coloring.
(setq-default hilit-mode-enable-list
'(not gnus-mode gnus-group-mode gnus-summary-mode gnus-article-mode))
(if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))
(require 'hilit19)
;; newer hl319.el
;; GNUS has it's own highlighting/face-coloring.
(if (or (and (= emacs-major-version 19) (> emacs-minor-version 29))
(> emacs-major-version 19))
(setq-default hilit-hook-list
'(yank yank-pop recenter find-file info mail dired change))
(setq-default hilit-hook-list
'(yank yank-pop recenter find-file info mail dired change gnus)))
(setq-default hilit-user-face-table
;; face light dark mono
'((type nil nil nil)
(jargon-entry defun green bold)
(comment firebrick DeepPink italic)
(string dimgrey pink underline)))
(require 'hl319))
;; ;; Darken greyed strings in font lock mode
;; (custom-declare-face 'font-lock-string-face
;; '((((class grayscale) (background light)) (:foreground "gray37" :italic t))
;; (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))
;; (((class color) (background light)) (:foreground "gray37"))
;; (((class color) (background dark)) (:foreground "LightGray"))
;; (t (:italic t)))
;; "Font Lock mode face used to highlight strings."
;; :group 'font-lock-highlighting-faces)
;; Enable font lock support
(setq font-lock-support-mode '((latex-mode . fast-lock-mode) (t . lazy-lock-mode)))
(global-font-lock-mode t)
;;
;; Some dialog
;; ------------------
; (require 'dialog-y-n)
(setq use-dialog-box t)
;;
;; more dialog
;; -----------
;; (menu-prompting nil)
; (require 'complete-menu)
;;
;; automatical horizontal scrolling (does this work on 19.31?)
;; --------------------------------
; (require 'hscroll)
;;
;; Set X synchrone
;; ---------------
;; Speed up
(setq mouse-scroll-delay 0)
(setq x-selection-timeout 0)
;;
;; We use a wrapper script for netscape
;;
(if (file-executable-p "/usr/X11R6/bin/Netscape")
(setq browse-url-netscape-program "/usr/X11R6/bin/Netscape"))
)
;;
;; emacsclient: automatical popup under X11
;; ------------------------------------------
;(defun server-make-window-visible ()
; "Try to make this window even more visible."
;(if window-system
; (progn
; (let ((foo (selected-frame)))
; (sit-for 0)
; (make-frame-visible foo))
; (accept-process-output))))
;(add-hook 'server-switch-hook '(lambda () (server-make-window-visible)))
;(add-hook 'server-visit-hook '(lambda () (server-make-window-visible)))
;; Start it for popup
;(server-start)
;;
;; Emacs experts like this
;; -----------------------
(put 'eval-expression 'disabled nil)
;;
;; Working on parts of text
;; ------------------------
;; NB: `C-x n n' is narrow-to-region
;; `C-x n p' is narrow-to-page
;; `C-x n w' is widen
;(put 'narrow-to-region 'disabled nil)
;(put 'narrow-to-page 'disabled nil)
;;
;; GNUS
;; ----
;; Sorting
(if (or (and (= emacs-major-version 19) (> emacs-minor-version 29))
(> emacs-major-version 19))
(add-hook 'gnus-select-group-hook
'(lambda ()
(setq-default gnus-auto-select-first nil)
(setq-default gnus-auto-center-summary nil)
(setq gnus-thread-sort-functions
'(gnus-thread-sort-by-date
gnus-thread-sort-by-subject
gnus-thread-sort-by-score))))
(add-hook 'gnus-select-group-hook
'(lambda ()
(setq-default gnus-auto-select-first nil)
(setq-default gnus-auto-center-summary nil)
;; First of all, sort by date.
(gnus-keysort-headers
(function string-lessp)
(function
(lambda (a)
(gnus-sortable-date (gnus-header-date a)))))
;; Then sort by subject string ignoring `Re:'.
;; If case-fold-search is non-nil, case of letters is ignored.
(gnus-keysort-headers
(function string-lessp)
(function
(lambda (a)
(if case-fold-search
(downcase (gnus-simplify-subject (gnus-header-subject a) t))
(gnus-simplify-subject (gnus-header-subject a) t)))))
))
)
;; highlighting, menus, and subscribing in GNUS
(add-hook 'gnus-startup-hook
'(lambda ()
(setq gnus-subscribe-newsgroup-method
'(lambda (newsgroup)
(gnus-subscribe-newsgroup newsgroup)
(gnus-kill-newsgroup newsgroup)))
(setq gnus-use-generic-from t)
;; highlighting and menu in GNUS
(if (or (and (= emacs-major-version 19) (> emacs-minor-version 29))
(> emacs-major-version 19))
(progn
(setq gnus-visual '(highlight menu))
(setq gnus-group-highlight
'(;; News.
((and (> unread 100) (not mailp)) . gnus-summary-high-ticked-face)
((and (> unread 0) (not mailp)) . gnus-summary-high-read-face)
((and (= unread 0) (not mailp)) . gnus-summary-high-ancient-face)
((not mailp) .
gnus-summary-normal-ancient-face)
;; Mail.
((and (= unread 0) (eq level 1)) . gnus-group-mail-1-empty-face)
((eq level 1) . gnus-group-mail-1-face)
((and (= unread 0) (eq level 2)) . gnus-group-mail-2-empty-face)
((eq level 2) . gnus-group-mail-2-face)
((and (= unread 0) (eq level 3)) . gnus-group-mail-3-empty-face)
((eq level 3) . gnus-group-mail-3-face)
((= unread 0) . gnus-group-mail-low-empty-face)
(t . gnus-group-mail-low-face)))
)))
)
;;
;; Common to all C modes
;; ---------------------
(add-hook 'c-mode-common-hook
'(lambda () (c-set-style "linux")
(c-set-offset 'case-label 4)
(setq c-basic-offset 4)))
;;
;; Auto fill mode
;; --------------
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;
;; Fill-column
;; -----------
;; Fill-column ist hier auf 78 Charakter gesetzt, nach Wunsch "andern!
(setq fill-column 78)
(add-hook 'TeX-mode-hook '(lambda () (setq fill-column 78)))
;;
;; AUC-TeX
;; ----------------------------
(if (file-readable-p "/usr/share/emacs/site-lisp/tex-site.el")
(progn
(require 'tex-site)
(setq-default TeX-master nil)
; Users private libaries
; (setq TeX-macro-private '("~/lib/tex-lib/"))
; (setq TeX-style-private "~/lib/site-lisp/auctex/style/") ; AUC-TeX-Macros
; (setq TeX-auto-private "~/lib/site-lisp/auctex/auto/") ; Autom. Auc-TeX-Macros
(if window-system
(if (or (featurep 'hilit19) (featurep 'hl319))
(add-hook 'after-init-hook '(lambda () (load "auctex/hilit-LaTeX" nil t)))
(if (featurep 'font-lock)
(add-hook 'after-init-hook '(lambda () (load "auctex/font-latex" nil t))))))
))
;;
;; Brace macros
;; ------------
(defun TeX-Inserting (sta stb stc)
(if (= (preceding-char) sta )
(insert stb)
(progn (insert stc) (backward-char 1))))
(defun TeX-schweif () (interactive "*") (TeX-Inserting ?\\ "{" "{}"))
(defun TeX-rundekl () (interactive "*") (TeX-Inserting ?\\ "(" "()"))
(defun TeX-eckigek () (interactive "*") (TeX-Inserting ?\\ "[" "[]"))
(defun TeX-exponen () (interactive "*") (TeX-Inserting ?\\ "^" "^{}"))
(defun TeX-subscri () (interactive "*") (TeX-Inserting ?\\ "_" "_{}"))
(defun TeX-dollarm () (interactive "*") (TeX-Inserting ?\\ "$" "$$"))
(defun TeX-REVbbox () (interactive "*") (TeX-Inserting ?\\ "bbox{" "\\bbox{}"))
(add-hook 'LaTeX-mode-hook
'(lambda ()
;; Uncomment this for automatic bracket closing
;; Begin bracket closing
; (local-set-key "{" 'TeX-schweif)
; (local-set-key "(" 'TeX-rundekl)
; (local-set-key "[" 'TeX-eckigek)
; (local-set-key "^" 'TeX-exponen)
; (local-set-key "_" 'TeX-subscri)
; (local-set-key "$" 'TeX-dollarm)
; (local-set-key "\C-b" 'TeX-REVbbox)
;;
;; It's german:
;; Deutsche Tastatur im LaTeX-German-Style/Babel-Class
;; ---------------------------------------------------
;; Aktivierung mit `M-x german-mode' -> man dr"ucke
;; *nacheinander* <ComposeCharacter>, <">, <a> und staune!
;; ACHTUNG: Bei grossen Files sehr LANGSAM beim Abspeichern
;; das ist vom Prinzip her bedingt! Hier gibt's keinen Support!
; (require 'ger-keys)
;; End bracket closing
;; For ISO Latin standard: Macro out of `ger-keys'
;; ger-keys should be loaded
; (german-mode)
;; For german style usage:
(modify-syntax-entry ?" "w")
(local-set-key "\"" 'self-insert-command)
;; Deutsche Belegung amerikanischer Tastaturen: aus `ger-keys'
; (german-keyboard)
))
;;
;; Provide some usefull function keys
;; ----------------------------------
;; Have a look on /usr/share/emacs/site-lisp/function-keys.el
;; Extensions or changes of the keymap
;; original definitions will found in loaddefs.el.
;;(global-set-key [escape] [?\e]) ; Escape
;;
(global-set-key [M-left] 'backward-word)
(global-set-key [M-right] 'forward-word)
(global-set-key [M-up] 'beginning-of-line)
(global-set-key [M-down] 'end-of-line)
;;
; (global-set-key [C-left] 'backward-char)
; (global-set-key [C-right] 'forward-char)
; (global-set-key [C-up] 'previous-line)
; (global-set-key [C-down] 'next-line)
;;
(global-set-key [S-left] 'backward-char)
(global-set-key [S-right] 'forward-char)
(global-set-key [S-up] 'previous-line)
(global-set-key [S-down] 'next-line)
;;
(global-set-key [find] 'isearch-forward) ; Search
(global-set-key [select] 'set-mark-command) ; Mark
;;
(global-set-key [S-next] 'end-of-buffer)
(global-set-key [S-prior] 'beginning-of-buffer)
(global-set-key [S-find] 'find-file)
(global-set-key [S-select] 'switch-to-buffer)
(global-set-key [S-insert] 'insert-file)
;;
(if (and (= emacs-major-version 19) (= emacs-minor-version 29))
(define-key key-translation-map [f1] nil)) ; 19.29+
;;(global-set-key [f1] 'find-file) ; `Help'
(global-set-key [f1] 'help-for-help) ; `Help'
(global-set-key [pause] 'toggle-read-only) ; `HoldScreen'
;;
(global-set-key [f2] 'split-window)
(global-set-key [f3] 'isearch-forward)
(global-set-key [f4] 'query-replace-regexp)
(global-set-key [f5] 'save-buffer)
(global-set-key [f6] 'find-file)
(global-set-key [f7] 'buffer-menu)
(global-set-key [f8] 'repeat-complex-command)
(global-set-key [f9] 'execute-extended-command)
(global-set-key [f10] 'eval-expression)
;;
;;(global-set-key [f11] [?\e]) ; Escape
(global-set-key [f11] esc-map) ; Escape
;;
(global-set-key [f12] 'backward-delete-char-untabify) ; Backspace
;;
;; DEC keyboard: f13 up to f20
(global-set-key [f13] 'newline) ; Linefeed
(global-set-key [linefeed] 'newline) ; Linefeed
;;
(global-set-key [f14] 'switch-to-buffer)
;;
;; Emacs original key binding
;;
; (global-set-key [home] 'beginning-of-buffer) ;
; (global-set-key [end] 'end-of-buffer) ;
;;
(global-set-key [help] 'info) ; Help
(global-set-key [M-help] 'repeat-complex-command) ; Redo
(global-set-key [menu] 'execute-extended-command) ; Do
(global-set-key [M-menu] 'eval-expression) ; eval
;;
(global-set-key [f17] 'beginning-of-buffer)
(global-set-key [f18] 'end-of-buffer)
(global-set-key [f19] 'save-buffer)
(global-set-key [f20] 'find-file)
;;
;; Translate `C-h' to DEL.
; (keyboard-translate ?\C-h ?\C-?)
;;
;; Translate DEL to `C-h'.
; (keyboard-translate ?\C-? ?\C-h)
;;;;;;;;;;
;; the end
;; Set the debug option to enable a backtrace when a
;; problem occurs.
(setq debug-on-error t)
;;adding tools for JDEE
(add-to-list 'load-path (expand-file-name
"/usr/local/share/emacs/site-lisp/eieio-0.17beta3"))
(add-to-list 'load-path (expand-file-name
"/usr/local/share/emacs/site-lisp/semantic-1.4beta13"))
(add-to-list 'load-path (expand-file-name
"/usr/local/share/emacs/site-lisp/speedbar-0.14beta2"))
(add-to-list 'load-path (expand-file-name "/usr/local/share/emacs/site-lisp/elib"))
(add-to-list 'load-path (expand-file-name
"/usr/local/share/emacs/site-lisp/jde-2.2.9beta7/lisp"))
(require 'jde)
(require 'font-lock)
;; ;; 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)
;;;This set up SMTP Server for sendin mail
(setq user-full-name "Nandan Chandrakant Joshi")
(setq user-mail-address "[EMAIL PROTECTED]")
(setq send-mail-function 'smtpmail-send-it) ; if you use `mail'
(setq message-send-mail-function 'smtpmail-send-it) ; if you are using Gnus.
(setq smtpmail-default-smtp-server "smtprelay.t-online.de")
(setq smtpmail-local-domain nil)
(setq smtpmail-sendto-domain nil)
(setq smtpmail-debug-info t)
(load-library "smtpmail")
(load-library "message")
;;
;; Gnus for IMAP
;;
; setup nnimap to read the correct mailspool
;;(setq gnus-select-method
;; '(nnimap "mail-imap"
;; (nnimap-address "imap.stud.uni-goettingen.de")))
;;(setq nnimap-list-pattern "INBOX")
; I don't read usenet, so don't bother setting up a server for it
; If you do read usenet, just move the stuff above to here.
;;(setq gnus-secondary-select-methods nil)
;;(setq gnus-check-new-newsgroups nil)
; configure nnfolder to save sent messages and drafts
; in this case it uses folders named ``sent.YEAR'' which
; are created and rotated automatically
(setq nnfolder-active-file (expand-file-name "~/News/archive/active"))
(setq nnnfolder-directory (expand-file-name "~/News/archive/"))
(setq gnus-message-archive-method
'(nnfolder "archive"
(nnfolder-inhibit-expiry t)))
(setq gnus-message-archive-group (concat "sent." (format-time-string "%Y")))
(setq nndraft-directory (expand-file-name "~/News/drafts"))
;;;End
;;; Emacs/W3 Configuration
(setq load-path (cons "/usr/local/share/emacs/site-lisp" load-path))
(condition-case () (require 'w3-auto "w3-auto") (error nil))
;; ;;; Java configuration
;; ;******************************************************************************
;; ; Setzen von allgemeinen Variablen und Funktionen
;; ;******************************************************************************
;; ;------------------------------------------------------------------------------
;; ; Variablen und Funktionen betr.: Display bzw. Video
;; ;------------------------------------------------------------------------------
;; (setq inhibit-startup-message t) ; unterdrueckt Startinformation
;; (setq scroll-step 8) ; scroll 8 Zeilen am Schirmende
;; (setq line-number-mode t) ; zeigt staendig die Zeilennummer an
;; (setq column-number-mode t) ; zeigt staendig die Spaltennummer an
;; (setq visible-bell nil) ; kein Blinken als 'bell'
;; (display-time) ; zeigt die Uhrzeit an
;; (standard-display-european 1) ; zeigt auch Umlaute im vt200-Mode
;; (setq transient-mark-mode t) ; highlighted z.B. regions
;; (set-foreground-color "black") ; Schrift im frame
;; (set-background-color "white") ; Hintergrund im frame
;; (set-face-foreground 'region "black") ; Schrift in der region
;; (set-face-background 'region "lightgrey"); Hintergrund in der region
;; (set-face-foreground 'highlight "white"); Schrift im highlight
;; (set-face-background 'highlight "red") ; Hintergrund im highlight
;; (set-face-foreground 'modeline "white") ; Schrift in der modeline
;; (set-face-background 'modeline "darkgreen") ; Hintergrund in der modeline
;; (setq x-pointer-shape x-pointer-top-left-arrow); Mouse-Cursor aendern
;; (set-mouse-color "red") ; schaltet um auf anderen Cursor
;; ;------------------------------------------------------------------------------
;; ; Variablen und Funktionen betr.: Files
;; ;------------------------------------------------------------------------------
;; (setq version-control t) ; erlaube zusaetzl. Versions-Nummern
;; (setq kept-old-versions 1) ; behalte die aelteste Version
;; (setq kept-new-versions 2) ; behalte 2 der neuesten Files
;; (setq trim-versions-without-asking t) ; Backups automatisch umnennen
;; (setq delete-old-versions t) ; Backups automatisch loeschen
;; (setq require-final-newline t) ; fuegt <RETURN> am File-Ende an
;; (setq next-line-add-newlines nil) ; verhindert Leerzeilen am File-Ende
;; (setq dired-copy-preserve-time t) ; beim Kopieren keine Datumsaenderung
;; ;------------------------------------------------------------------------------
;; ; Funktionen auf Tasten legen (key bindings)
;; ;------------------------------------------------------------------------------
;; (global-set-key [f1] 'save-buffer) ; Puffer speichern
;; (global-set-key [f2] 'kill-this-buffer) ; Puffer verlassen
;; (global-set-key [f3] 'goto-line) ; Springen in Zeile ...
;; (global-set-key [f4] 'other-window) ; in anderes Pufferfenster wechseln
;; (global-set-key [f5] 'other-frame) ; in naechsten Rahmen wechseln
;; (global-set-key [f6] 'undo) ; Aenderungen rueckgaengig machen
;; (global-set-key [f7] 'list-command-history); Liste der letzten Befehle zeigen
;; (global-set-key [f10] 'shell) ; Shell-Fenster oeffnen
;; (global-set-key [menu] 'compile) ; compilieren
;; ;------------------------------------------------------------------------------
;; ; Variablen und Funktionen betr.: major modes (hooks)
;; ;------------------------------------------------------------------------------
;; (setq text-mode-hook
;; '(lambda ()
;; (abbrev-mode 1)
;; (setq fill-column 80)
;; (auto-fill-mode 1)
;; (setq tex-zap-file "texfile") ; Standard-LaTeX File
;; (setq tex-dvi-view-command "xdvi -bg white -fg black")
;; (setq tex-command "latex")
;; (setq mode-name "LaTeX")
;; (setq tex-default-mode 'latex-mode)
;; (setq tex-open-quote "\"")
;; (setq tex-close-quote "\"")
;; (setq tex-dvi-print-command "lprdvi")
;; (setq tex-alt-dvi-print-command "lprdvi -P0")
;; )
;; )
;; (defun my-c-mode-common-hook ()
;; (setq c-basic-offset 4) ; Bloecke 4 Spaces einruecken
;; (setq c-indent-comments-syntactically-p t); Kommentare wie Code einruecken
;; (c-set-offset 'case-label 2) ; cases in switch 2 Spaces einruecken
;; (c-set-offset 'statement-case-intro 1)
;; (c-set-offset 'substatement-open 0)
;; (c-set-offset 'substatement '+)
;; )
;; (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;; (setq fortran-mode-hook
;; '(lambda ()
;; (setq fortran-startup-message nil) ; keine Start-Message
;; (fortran-auto-fill-mode 1) ; automatischer Umbruch
;; (setq fill-column 80) ; Umbruch ab Spalte 72
;; (abbrev-mode 1) ; abbrev-Mode einschalten
;; (setq fortran-do-indent 0) ; do .. nicht einruecken
;; (setq fortran-if-indent 3) ; 3 Spalten einruecken
;; (setq fortran-line-number-indent 4) ; 1234_*_ bei Labels
;; (setq comment-start "!") ; Kommentarzeichen
;; (setq fortran-comment-region "c ") ; 'c ' in Kommentarzeilen
;; (setq fortran-continuation-char "*")
;; (setq fortran-continuation-string "*"); Sternchen in Spalte 6
;; (setq fortran-continuation-indent 1) ; 1 Spalte einruecken
;; (setq fortran-blink-matching-if t) ; blinken bei endif
;; )
;; )
;; (setq dired-load-hook
;; '(lambda ()
;; (setq dired-ls-program "/sbin/ls")
;; (setq dired-listing-switches "-ao") ; dired listing o h n e Gruppen
;; (setq find-ls-option '("-exec ls -ao {} \\;" . "-ao"))
;; (setq find-grep-options "-i -s")
;; (define-key dired-mode-map "," 'dired-prev-dirline); eine Zeile zurueck
;; (define-key dired-mode-map "." 'dired-next-dirline); eine Zeile vor
;; (define-key dired-mode-map "a" 'revert-buffer)
;; (define-key dired-mode-map "c" 'dired-do-copy); File kopieren
;; (define-key dired-mode-map "r" 'dired-do-move); File umbenennen/bewegen
;; (define-key dired-mode-map "\C-x!" 'dired-do-shell-command); Shell-Kommando
;; (define-key dired-mode-map "\C-xg" 'dired-upcase); Gro�buchstabe
;; (define-key dired-mode-map "\C-xk" 'dired-downcase); Kleinbuchstabe
;; (define-key dired-mode-map "\C-xf" 'find-dired); File-Suche
;; (define-key dired-mode-map "\C-xn" 'find-name-dired); Suche Name
;; (define-key dired-mode-map "\C-xs" 'find-grep-dired); Suche String
;; )
;; )
(defun my-java-mode-hook ()
(cond (window-system
(require 'andersl-java-font-lock)
(turn-on-font-lock)
)
)
)
(add-hook 'java-mode-hook 'my-java-mode-hook)
(setq font-lock-maximum-decoration t)
(load "java-compile" 'noerr)
;; ;------------------------------------------------------------------------------
;; ; zeigt die zur aktuellen Klammer zugeh�rige Gegenklammer an
;; ;------------------------------------------------------------------------------
;; (load-library "paren") ; highlighted Klammerpaare
;; (show-paren-mode t) ; toggle: M-x show-paren-mode
;; ;------------------------------------------------------------------------------
;; ; Highlighting
;; ;------------------------------------------------------------------------------
;; (cond (window-system
;; (setq hilit-mode-enable-list '(not text-mode)
;; hilit-background-mode 'light
;; hilit-inhibit-hooks nil
;; hilit-inhibit-rebinding nil
;; )
;; (require 'hilit19)
;; )
;; )
;; (load "hilit19" 'noerr)
;; ;------------------------------------------------------------------------------
;; ; Html Helper Mode
;; ;------------------------------------------------------------------------------
;; (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;; (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
;; (setq auto-mode-alist (cons '("\\.htm$" . html-helper-mode) auto-mode-alist))
;; ;------------------------------------------------------------------------------
;; ; Emacs startet mit 'dired', Kommando: ls -als
;; ;------------------------------------------------------------------------------
;; (dired "." "-als")
Here is the *messages* log:
(emacs)
Loading disp-table...done
Loading tool-bar...done
Loading image...done
Loading tooltip...done
Loading font-lock...
Loading regexp-opt...done
Loading font-lock...done
Loading cl-macs...done
Bootstrapping objects...done
Loading /usr/local/libexec/emacs/21.1/i686-pc-linux-gnu/fns-21.1.1.el (source)...done
Loading easy-mmode...done
Loading mule-util...done
jde-java-font-lock: building names cache...empty
Loading smtpmail...done
Loading message...done
Loading semantic-el (source)...done
For information about the GNU Project and its goals, type C-h C-p.
Loading cl-seq...done
Loading lazy-lock...done
Fontifying *scratch*... (regexps.............)
Loading lazy-lock...done
call-interactively:
Beginning of buffer
Selecting a region with the mouse does `copy' automatically
(iconify-frame (#<frame [EMAIL PROTECTED] 0x849a830\ >))
(make-frame-visible (#<frame [EMAIL PROTECTED] 0x849a830\ >))
GNU Emacs 21.1.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2001-12-29 on
linux
(iconify-frame (#<frame [EMAIL PROTECTED] 0x849a830\ >))
(make-frame-visible (#<frame [EMAIL PROTECTED] 0x849a830\ >))
Selecting a region with the mouse does `copy' automatically
Fontifying *mail*... (regexps........)
menu-bar tools compose-mail
Mark set
Auto-saving...
Mark set [5 times]
Auto-saving...done
Well, at the start, it doesn't show anythings going wrong. All works works
perfect I think. And even under File Menu I get New JDE Submenu. But when I
load .java file, I don't see any trace of JDE Menu in taskbar. That means I
can't use JDEE. Although my .emacs files looks complicated, I think u can make
out where exactly the mistake lies. And well even I can't get any font-lock
and can't differentiate various Java syntax.
Well, any valuable help will be appreciated. I really wanna use it urgently. I
use it in uni. but there it is all preconfigured. But I dunno what is wrong
here. Pls examine the problem perfectly and help me as soon as possbile, as my
exams for java coming near and I wanna complete my assignments at home.
Thank you very much in advance!!!
nandan
