I have followed the installation guide but JDE still don't load.
The following error message occours:
Signaling: (file-error "Cannot open load file" "semantic-load")
require(semantic-load)
eval-buffer(#<buffer *load*> nil "jde")
load-with-code-conversion("/usit/sauron/u2/thomash/emacs/site/jde-2.2.8/lisp/jde.el"
"jde" nil nil)
execute-extended-command(nil)
call-interactively(execute-extended-command)
############################################################################################
.emacs
############################################################################################
;------------------------------------------------------------------------
;; Path settings
;------------------------------------------------------------------------
(setq load-path (cons "~/elisp/gnus"
(cons "~/elisp" load-path)))
(setq load-path (append (list (expand-file-name
"~/emacs/site/jde-2.2.8/lisp")
(expand-file-name "~/emacs/site/semantic")
(expand-file-name "~/emacs/site/speedbar")
(expand-file-name "~/emacs/site/eieio")
(expand-file-name "~/emacs/site/elib")
(expand-file-name "~/elisp")
(expand-file-name "~/elisp/gnus")
(expand-file-name "/local/gnu/lib/emacs/site-lisp")
) load-path))
;------------------------------------------------------------------------
;; load
;------------------------------------------------------------------------
;;(require 'cl)
(require 'dired)
(require 'disp-table)
;(require 'odberg-func)
;(require 'odberg-supercite)
(require 'harald-gnus-func)
(load "complete" t t)
(load "desktop" t t)
(load "harald-gnus-func" t t)
(desktop-load-default)
(autoload 'vc "vc" "vc-mode" t)
(autoload 'set-noscii "noscii" "Set noscii display" t)
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
;(autoload 'enriched-decode "enriched" nil nil nil)
;(load "enriched" t t)
(load-file "~/elisp/enriched.el")
(load "generate-calendar-month")
;; ####JDE STUFF####
;; The minimum setup
;; required to run the JDE. ;; Set the debug option to enable a
backtrace when a
;; problem occurs.
(setq debug-on-error t)
;; If you want Emacs to defer loading the JDE until you open a
;; Java file, edit the following line
;; to read:
;;(setq defer-loading-jde t) instead of (setq defer-loading-jde nil)
(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)
;; ####END JDE STUFF####
;------------------------------------------------------------------------
;; Gidder ikke skrive 'yes' eller 'no', 'y' og 'n' holder...
;------------------------------------------------------------------------
(fset 'yes-or-no-p 'y-or-n-p)
(standard-display-european 1)
;------------------------------------------------------------------------
;; Modes
;------------------------------------------------------------------------
(setq auto-mode-alist
(append '(
("\\.php$" . html-mode)
("\\.php3$" . html-mode)
("\\.inc$" . html-mode)
("\\.ML$" . isabelle-mode)
("\\.bet$" . beta-mode)
("\\.cim$" . simula-mode)
("\\.tex$" . LaTeX-mode)
("\\.cls$" . LaTeX-mode)
("\\.def$" . modula-2-mode)
("\\.dtx$" . latex-mode)
("\\.htm$" . html-mode)
("\\.html$" . html-mode)
("\\.shtml$". html-mode)
("\\.uhtml$". html-mode)
;;("\\.java$" . java-mode)
("\\.ltx$" . latex-mode)
("\\.mod$" . modula-2-mode)
("\\.pig$" . pig-mode)
("\\.pl$" . perl-mode)
("\\.sim$" . simula-mode)
("\\.sml$" . sml-mode)
("\\.st$" . smalltalk-mode)
("\\.sty$" . latex-mode)
("\\.txt$" . text-mode)
(".emacs$" . emacs-lisp-mode)
(".gnus$" . emacs-lisp-mode)
(".Xresources$" . emacs-lisp-mode) ; Tjah...
(".envir$" . c-mode)
(".login$" . c-mode)
(".logout$" . c-mode)
("Makefile$". makefile-mode)
("makefile$". makefile-mode)
("Makefile.std$". makefile-mode)
("Makefile.dist$". makefile-mode)
("\\.*.c$" . c-mode)
("\\.C$" . c++-mode)
("\\.PS$" . postscript-mode)
("\\.c?ps$" . postscript-mode)
("\\.c$" . c-mode)
("\\.cc$" . c++-mode)
("\\.cgi$" . perl-mode)
("\\.cim$" . simula-mode)
("\\.cpp$" . c++-mode)
("\\.cxx$" . c++-mode)
("\\.el$" . emacs-lisp-mode)
("\\.elc$" . emacs-lisp-mode)
("\\.h$" . c-mode)
;;("\\.java$" . java-mode)
("\\.ph$" . perl-mode)
("\\.pl$" . perl-mode)
("\\.pov$" . pov-mode)
("\\.s$" . asm-mode)
("\\.sql$" . sql-mode)
("\\.tar$" . tar-mode)
("\\.sgml$" . sgml-mode)
("\\.tcl$" . tcl-mode)
("\\.texinfo$" . texinfo-mode)
("\\.txi$" . texinfo-mode)
("\\.txt$" . text-mode)
("\\.vhdl$" . vhdl-mode)
("\\.vhd$" . vhdl-mode)
) auto-mode-alist))
;(autoload 'c-mode "c-mode" "Major mode to edit C files." t )
;(autoload 'vhdl-mode "vhdl-mode" "VHDL Editing Mode" t)
;(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t )
;(autoload 'postscript-mode "postscript" "" t)
;(autoload 'simula-mode "simula-mode" "Major mode for editing SIMULA
programs."t)
;(autoload 'bison-mode "bison" "Mode for editing YACC code" t)
;(autoload 'vm "vm" "Read mail under Emacs" t)
;(autoload 'vm-mail "vm" "Post mail with vm" t)
;(autoload 'perl-mode "perl-mode" "Major mode for editing perl code"
t)
;(autoload 'smalltalk-mode "st" "Major mode for editing Smalltalk
code" t)
;(autoload 'sml-mode "sml-mode" "Major mode for editing SML." t)
;(autoload 'html-mode "html-mode" "Major mode for HTML files." t)
;(autoload 'htm-helper-mode "html-helper-mode" "Major mode for HTML
files." t)
;(autoload 'java-mode "java-mode" "Java mode" t)
(autoload 'calc-dispatch "calc" "Calculator Options" t)
(autoload 'full-calc "calc" "Full-screen Calculator" t)
(autoload 'full-calc-keypad "calc""Full-screen X Calculator" t)
(autoload 'calc-eval "calc" "Use Calculator from Lisp")
(autoload 'calc "calc" "Calculator Mode" t)
(autoload 'quick-calc "calc" "Quick Calculator" t)
(autoload 'calc-keypad "calc" "X windows Calculator" t)
(autoload 'calc-embedded "calc" "Use Calc inside any buffer" t)
(autoload 'calc-embedded-activate "calc" "Activate =>'s in buffer" t)
(autoload 'calc-grab-region "calc" "Grab region of Calc data" t)
(autoload 'calc-grab-rectangle "calc" "Grab rectangle of data" t)
;; Diverse initialiseringer
(setq inhibit-startup-message nil
search-highlight t
query-replace-highlight t
visible-bell t
undo-limit 90000
undo-strong-limit 100000
max-specpdl-size (* 5 max-specpdl-size)
max-lisp-eval-depth (* 5 max-lisp-eval-depth)
gc-cons-threshold 1000000
minibuffer-max-depth nil
transient-mark-mode t
mouse-yank-at-point t
;menu-bar-mode nil
initial-major-mode 'text-mode
display-time-24hr-format t
display-time-day-and-date t
)
; �rner adaptive-fill-mode globalt, ja.
(setq-default sentence-end "[.?!][]\"')}]*[ \n]+"
paragraph-start "^[|:> \t]*$"
paragraph-separate (default-value 'paragraph-start))
(setq adaptive-fill-regexp (substring (default-value 'paragraph-start)
1 -1))
; La Help og de andre dukke opp i eget vindu?
;(setq special-display-regexps
; '(("\\*Help\\*" (height . 24) (menu-bar-lines . 0) (name .
"Emacs Help"))
; ("\\*info\\*" (height . 24))
; ("\\*sml.*\\*" (height . 40) (menu-bar-lines . 0) (name .
"SML"))))
; Eget buffer for meldinger.
;(require 'message-log)
;------------------------------------------------------------------------
;; Dra modeline.
;------------------------------------------------------------------------
(require 'mldrag)
;------------------------------------------------------------------------
;; Husk hvor i filene vi var.
;------------------------------------------------------------------------
(require 'saveplace)
;------------------------------------------------------------------------
;; Husk hvilke filer vi har �pne.
;------------------------------------------------------------------------
(load "desktop" nil t)
(add-hook 'after-init-hook 'desktop-read)
(defun desktop-save-force nil
(desktop-save (expand-file-name "~/")))
(add-hook 'after-init-hook 'desktop-save-force t)
;------------------------------------------------------------------------
;; Dato i modeline.
;------------------------------------------------------------------------
;(display-time)
;------------------------------------------------------------------------
;; Display
;------------------------------------------------------------------------
(setq visible-bell t)
(if (>= emacs-major-version 20)
(set-language-environment "Latin-1")
(set-input-mode (car (current-input-mode))
(nth 1 (current-input-mode))
0)
(standard-display-european t))
(setq echo-keystrokes 1)
(setq split-height-threshold 17)
(line-number-mode 1)
(column-number-mode 1)
(or window-system (setq search-slow-speed 10000000))
(setq search-slow-window-lines 5)
(setq scroll-preserve-screen-position t)
;------------------------------------------------------------------------
;; Calendar mode defaults
;------------------------------------------------------------------------
(setq calendar-latitude 60.0)
(setq calendar-longitude 10.7)
(setq calendar-location-name "Blindern")
(setq all-christian-calendar-holidays t)
(setq calendar-week-start-day 1)
(setq diary-file (expand-file-name "~/.diary"))
;------------------------------------------------------------------------
;; font-lock-mode
;------------------------------------------------------------------------
(global-font-lock-mode t)
(setq lazy-lock-defer-time nil
lazy-lock-stealth-time 1
lazy-lock-stealth-lines 100
lazy-lock-stealth-verbose nil
font-lock-verbose nil
font-lock-background-mode 'dark
font-lock-maximum-decoration t
font-lock-support-mode 'lazy-lock-mode
font-lock-support-mode 'fast-lock-mode)
;;(set-face-background 'region "#668")
(set-face-background 'region "#black")
(set-face-background 'modeline "#557")
(set-face-foreground 'modeline "#bbd")
(set-face-background 'modeline "#557")
(set-face-foreground 'modeline "white")
(set-face-background 'highlight "#755")
(set-face-foreground 'highlight "snow2")
(set-face-background 'secondary-selection "#575")
(set-face-foreground 'secondary-selection "snow2")
(setq font-lock-face-attributes
;; Face Background Foreground Bold-P Italic-P Underline-P
'((font-lock-comment-face "blue" nil nil t nil)
(font-lock-string-face "darkred" nil nil nil nil)
(font-lock-keyword-face "purple" nil t nil nil)
(font-lock-function-name-face "darkblue" nil nil nil
nil)
(font-lock-variable-name-face "black" nil nil nil nil)
(font-lock-type-face "red" nil nil nil nil)
(font-lock-reference-face "darkgreen" nil t nil
nil)))
;------------------------------------------------------------------------
;; Hooks
;------------------------------------------------------------------------
;; Find-file hooks
; (add-hook 'find-file-hooks
; '(lambda ()
; (cond ((looking-at "^#!/[a-z/]+/perl") (perl-mode))
; ((looking-at "To:\ ") (mail-mode))
; ((looking-at "(define") (emacs-lisp-mode))
; ((looking-at "^#!/[a-z/]+/\\(ba\\)?sh")
(shell-script-mode)))
; ))
; Unng� kjedelige episoder med C-x C-c
;(add-hook 'kill-emacs-query-functions
; (lambda ()
; (if (yes-or-no-p
; "Do you really think it is a good idea to kill Emacs?
")
; (message "Well, I don't.")
; (message "Good for you.")
; )
; nil))
;; SIMULA
;(autoload 'simula-mode "simula" nil t)
;(add-to-list 'auto-mode-alist '("\\.sim\\'" . simula-mode))
;; Simula mode hook
(add-hook 'simula-mode-hook
'(lambda()
(read-abbrev-file (expand-file-name
"~trondamu/elisp/simula_abbrevs
"))
(simula-install-standard-abbrevs)
(setq truncate-lines t
simula-tab-always-indent t
simula-indent-level 2
simula-continued-statement-offset 2
simula-substatement-offset 2)))
(defvar imenu--generic-simula-expression
(list
(list
nil
;; Regular expression
(concat
"\\(" ; (Begin)
"^\\s-*" ; Initial whitespace
"\\w*" ; Optional super class
"\\s-+"
"\\(class\\|procedure\\)" ; Class or Procedure
"\\s-+"
"\\w+" ; Name
"\\)" ; (End)
) 1))) ; Use substring #1 in menu
(add-hook
'simula-mode-hook
(lambda () (setq imenu-generic-expression
imenu--generic-simula-expression)))
(require 'imenu-simula)
;(require 'font-lock-simula)
;; perl mode hook
(add-hook 'perl-mode-hook
'(lambda()
(setq truncate-lines t
perl-indent-level 5
perl-continued-statement-offset 5
perl-continued-brace-offset 0
perl-brace-offset -5
perl-brace-imaginary-offset 0
perl-label-offset -5
perl-tab-to-comment t
make-backup-files t)))
;; C mode hook
(add-hook 'c-mode-hook
'(lambda()
(setq truncate-lines t
c-basic-offset 2
c-continued-statement-offset 2
make-backup-files t
compile-command "make")))
;; C++ mode hook
(add-hook 'c++-mode-hook
'(lambda()
(setq truncate-lines t
c-basic-offset 2
c++-continued-statement-offset 2
make-backup-files t
compile-command "make")))
;; Text mode hook
(add-hook 'text-mode-hook
'(lambda()
(auto-fill-mode 1)
(setq adaptive-fill-mode t)
(setq make-backup-files nil)))
;; HTML mode hook
(add-hook 'html-helper-load-hook
'(lambda()
(require 'html-font)
(modify-syntax-entry ?\< "(>") ; Parenteshoping for < og
>
(modify-syntax-entry ?\> ")<")
))
;; LaTeX mode hook
(add-hook 'latex-mode-hook
(lambda()
(cond ((not (file-exists-p buffer-file-name))
(insert-string
(concat
; "% File: " (buffer-name) "\n"
; "% Created: "
; (format-time-string "%Y-%m-%d %H:%M") "\n"
; "% By: " (user-full-name)
; ", <" (user-login-name) ">\n"
; "% Time-stamp: <>\n"
; "% Comment: \n\n"
"\\documentclass[11pt, a4paper, norsk]{report}\n"
"\\usepackage[T1]{fontenc}\n" ; % Norske tegn.\n"
"\\usepackage[latin1]{inputenc}\n" ; % H�ndterer
f.eks. � og �\n"
"\\usepackage{babel}\n\n" ; % Norsk orddeling og
norske ord\n"
; " % etc. Opsjon norsk.\n\n"
; "\\input{/hom/" (user-login-name)
"/latex/hyphen}\n\n"
"\\author{" (user-full-name) "}\n"
"\\title{}\n\n"
"%---------------------------------------------\n"
"\\begin{document}\n"
;
"\\renewcommand\\today{\\the\\year-\\the\\month-\\the\\day}\n"
; "\\date{\\today}\n"
; "\\nonfrenchspacing\n"
"\\maketitle\n\n"
"\\end{document}\n"
))
(search-forward "author" () t)
(beginning-of-line)))
(make-variable-buffer-local 'time-stamp-format)
(setq time-stamp-format
(concat
"%4y-%02m-%02d %02H:%02M by " (user-full-name)))
(make-variable-buffer-local 'time-stamp-start)
(setq time-stamp-start "% Time-stamp: <")
(make-variable-buffer-local 'time-stamp-end)
(setq time-stamp-end ">")
))
; Tastebindinger (rappet fra ifi-default.el)
;
------------------------------------------------------------------------
; (global-set-key [f1] 'delete-other-windows)
; (global-set-key [f2] 'split-window-vertically)
; (global-set-key [f3] 'find-file)
; (global-set-key [f4] 'save-some-buffers)
; (global-set-key [f5] 'query-replace)
; (global-set-key [f6] 'goto-line)
; (global-set-key [f7] 'undo)
; (global-set-key [f8] 'ifi-compile)
; (global-set-key [f9] 'next-error)
; (global-set-key [S-left] 'backward-word) ; Left-arrow
; (global-set-key [S-f30] 'backward-word)
; (global-set-key [S-kp-4] 'backward-word)
; (global-set-key [C-left] 'beginning-of-line)
; (global-set-key [C-f30] 'beginning-of-line)
; (global-set-key [C-kp-4] 'beginning-of-line)
; (global-set-key [S-right] 'forward-word) ; Right-arrow
; (global-set-key [S-f32] 'forward-word)
; (global-set-key [S-kp-6] 'forward-word)
; (global-set-key [C-right] 'end-of-line)
; (global-set-key [C-f32] 'end-of-line)
; (global-set-key [C-kp-6] 'end-of-line)
; (global-set-key [S-up] 'backward-paragraph) ; Up-arrow
; (global-set-key [S-f28] 'backward-paragraph)
; (global-set-key [S-kp-8] 'backward-paragraph)
; (global-set-key [C-up] 'scroll-down)
; (global-set-key [C-f28] 'scroll-down)
; (global-set-key [C-kp-8] 'scroll-down)
; (global-set-key [S-down] 'forward-paragraph) ; Down-arrow
; (global-set-key [S-f34] 'forward-paragraph)
; (global-set-key [S-kp-2] 'forward-paragraph)
; (global-set-key [C-down] 'scroll-up)
; (global-set-key [C-f34] 'scroll-up)
; (global-set-key [C-kp-2] 'scroll-up)
; (global-set-key [find] 'isearch-forward)
; (global-set-key [end] 'end-of-line)
; (global-set-key [help] 'help-command)
; (global-set-key [home] 'beginning-of-line)
; (global-set-key [insert] 'yank)
; (global-set-key [menu] 'execute-extended-command) ; `Do' on
DECs
; (message "Hindu: %s (%s)"(user-full-name) (system-name)".") ; :-P
; (global-set-key [next] 'scroll-up) ; `Page
down' on TDXs.
; (global-set-key [prior] 'scroll-down) ; `Page up' on TDXs.
; (global-set-key [select] 'set-mark-command)
; (global-set-key [undo] 'kill-region) ; `Remove' on DECs
;--------------------------------------------------------------------
;; Mapping between Norwegian characters and default SGML entity names
;--------------------------------------------------------------------
(defvar *SGML-latin-1-entities*
'((?\� . "æ")
(?\� . "ø")
(?\� . "å")
(?\� . "Æ")
(?\� . "Ø")
(?\� . "Å")
(?\> . ">")
(?\< . "<")
(?\& . "&")
(?\" . """)
(?\� . "ï")
(?\� . "é"))
"*Mapping between Norwegian characters and default SGML entity
names")
(defun SGML-entify (beg end)
(interactive "r")
(save-excursion
(defun SGML-entify (beg end)
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(let ((target (mapconcat (lambda (x) (char-to-string (car x)))
*SGML-latin-1-entities* "\\|")))
(while (re-search-forward target nil t)
(replace-match (cdr (assoc (char-after (match-beginning 0))
*SGML-latin-1-entities*))
t t))))))
;------------------------------------------------------------------------
;; keymaps
;------------------------------------------------------------------------
(global-set-key "\C-s" 'isearch-forward-regexp) ; want search
(global-set-key "\C-r" 'isearch-backward-regexp) ; and replace to
;------------------------------------------------------------------------
;; Emacs/W3 Configuration
;------------------------------------------------------------------------
#(setq load-path (cons "/hom/trondham/elisp/w3" load-path))
#(condition-case () (require 'w3-auto "w3-auto") (error nil))
;------------------------------------------------------------------------
;; fiks mac- og pc-tegnsett. (Naggum p� comp.emacs)
;------------------------------------------------------------------------
(defun anti-pc-linjeskift ()
(interactive)
(subst-char-in-region (point-min) (point-max) ?\r ?\n t)
(set-buffer-modified-p t))
(defun pc-linjeskift ()
(interactive)
(subst-char-in-region (point-min) (point-max) ?\n ?\r t)
(set-buffer-modified-p t))
;; Shell mode / Comint
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
(setq comint-password-prompt-regexp "[Pp]assw?ord:\\s *\\'")
2mas
