Hi
I am having trouble getting JDE run with emacs version 20.4.2. Having passed
all the steps of installation I am stuck with a message saying "cannot load
file" "semantics" or somehting like that.
This happens to me in both Win98 and Unix.
I attach my .emacs for your info.
Any help would be most appreciated
Thanks
mak
______________________________________________
FREE Personalized Email at Mail.com
Sign up at http://www.mail.com/?sr=signup
; ---------------------------------------------
;
; THE GREAT EMACS START UP FILE
;
; ---------------------------------------------
; ---------------------------------------------
; Set preferences
(setq inhibit-startup-message t)
(setq make-backup-files nil)
(setq load-path (cons (concat
"/usr/shared-apps/share/emacs/site-lisp")
load-path))
(setq load-path (cons (concat "/home/peace/makm/jde/jde-2.1.7") load-path))
(setq load-path (cons (concat "/home/peace/makm/jde/jde-2.1.7/lisp") load-path))
;(require 'jde)
;(require 'jde)
;(set-time-zone-rule "MET")
(setq frame-title-format
'("%S: " (buffer-file-name "%f" (dired-directory dired-directory "%b"))))
; ---------------------------------------------
; Set colours
;(set-mouse-color "coral")
(set-background-color "white")
;(set-cursor-color "firebrickred")
;(set-foreground-color "aquamarine")
;(set-face-background (quote region) "slateblue")
;(set-face-background (quote secondary-selection) "mediumslateblue")
;(set-face-background (quote highlight) "cornflowerblue")
; ---------------------------------------------
; For xterms, turn off the beep
(shell-command "xset -b")
(setq inhibit-startup-message t)
(setq completion-ignored-extensions
(append completion-ignored-extensions '(".4go" ".4gi" ".4ge" ".frm" ".o")))
; ----------------------------------------------
; Start mode-line altering functions
(line-number-mode 1)
(column-number-mode 1)
(display-time)
;ediff should ignore whitespace.
(set 'ediff-diff-options "-w")
;; 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)
;;Only scroll one line at a time when I move past the bottom of the
;;screen.
(setq scroll-step 1)
;; Peace standards for java coding
(require 'dmacro)
(dmacro-load "/usr/shared-apps/share/emacs/site-lisp/java.dm")
;(require 'jde)
;; Automatically use 4gl-mode for files with suffix .4gl
;; Automatically use java-mode for files with suffix .java
(load "4gl-mode")
(setq auto-mode-alist
(append '(("\\.4gl$" . 4gl-mode)
("\\.trg$" . 4gl-mode)
("\\.htm$" . html-mode)
("\\.html$" . html-mode)
("\\.c$" . c-mode)
("\\.idl$" . c++-mode)
("\\.sh$" . shell-script-mode)
("\\.java$" . java-mode)
("\\.emacs$" . emacs-lisp-mode)
("\\.el$" . emacs-lisp-mode)
("\\makefile$" . makefile-mode)
("\\Makefile$" . makefile-mode)
("\\.pl$" . perl-mode))))
;; Add font-lock-mode for all file types.
(add-hook 'find-file-hooks 'all-my-hooks)
(setq font-lock-maximum-decoration t)
(setq current-fill-column 80)
(defun all-my-hooks ()
;;(auto-fill-mode t) ;; Word wrapping at column 80
;; Nah, it's crap.
(font-lock-mode t) ;; Cool colours
(setq indent-tabs-mode nil)) ;; No tabs in files
(add-hook 'makefile-mode-hook 'my-makefile-mode-hook) ;; Need tabs in
;; makefiles.
(defun my-makefile-mode-hook ()
;;(auto-fill-mode t) ;; Word wrapping at column 80
(turn-on-font-lock)) ;; Cool colours
;; 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)
;; Function to insert initials and the current date - 4gl.
(defun signature ()
(interactive)
(setq current-date (current-time-string))
(setq current-date (concat (substring current-date 8 10)
(copy-sequence " ")
(substring current-date 4 7)
(copy-sequence " ")
(substring current-date 20 24)))
(insert (copy-sequence " # MDG "))
(insert current-date))
;; Function to insert initials and the current date - java.
(defun signature-2 ()
(interactive)
(setq current-date (current-time-string))
(setq current-date (concat (substring current-date 8 10)
(copy-sequence " ")
(substring current-date 4 7)
(copy-sequence " ")
(substring current-date 20 24)))
(insert (copy-sequence " // MDG "))
(insert current-date))
;(setq load-path (nconc '("~/jde/jde-2.1.7/lisp"
;; Add paths to other add-on packages here. ) load-path))
(require 'jde)
(defun my-jde-mode-hook () (setq c-basic-offset 2))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
;; (speedbar t)
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
