Hi there,
we use Solaris 8 and Emacs 20.4 JDK/2.0(production) and jde-2.2.4.1
Loading a java file I get the message
File mode specification error: (wrong-type-argument stringp nil)
and the modeline contains [???]
Compilation is ok but debugging dos not work neither for JDEbug nor for
old jdb.
The following messages occur
oldjdb: error in process filter: Symbol's value as variable is void:
jde-oldjdb-marker-regexp [26 times]
JDEbug: Invalid function: (macro . #[(&rest body)
"���������\"BBB�����\"BBBFBBB?" [body if (and (eq system-type (quote
windows-nt)) (not jde-xemacsp)) (boundp (quote
win32-start-process-show-window)) let ((save
win32-start-process-show-window)) (setq win32-start-process-show-window
t) append ((setq win32-start-process-show-window save)) ((save
w32-start-process-show-window))] 11
("/opt/EGCS/share/emacs/site-lisp/jde-2.2.4/lisp/jde-run.elc" . 15318)])
My .emacs file and an aux file, which is used to load jde, are attached.
Please, give me a hint, what could be wrong.
Yours
--ukriegel
---------------------------------------------------------------------
Dr. E.Ulrich Kriegel, [EMAIL PROTECTED],
Fraunhofer ISST, Mollstra�e 1, D-10178 Berlin, Germany
tel: (++49(0)30) 243 06 446 fax: (++49 (0) 30) 24306 199.
For public key either send mail with subject ##public-key or look at
http://www.isst.fhg.de/~ukriegel/public-key.html
=====================================================================
;;;
;;; basic init file for EMACS
;;;
;;;
;;; ---------------european standard mode
;;;
(set-language-environment "Latin-1")
;;-----------------------------------------------------------------------
;; scrollbar right
(setq default-frame-alist
(cons '(vertical-scroll-bars . right) default-frame-alist))
;; save intervall
(setq auto-save-interval 100)
;; diary
(setq text-mode-hook
'(lambda () (auto-fill-mode 1)))
(global-set-key "\C-cd" 'new-diary-entry)
(global-set-key "\C-c\C-d" 'insert-diary-entry)
;; privae load directory for elisp files
;;(setq load-path (cons "~ukriegel/lib/emacs/lisp" load-path))
;;;
;;;Emacs Server
;;;
(server-start)
;; File name completition
(require 'complete)
;; mouse selection
(require 'mouse-sel)
(setq mouse-sel-retain-highlight t)
;; printer setup
(setq ps-lpr-switches
(if (getenv "PRINTER")
(list (concat "-d" (getenv "PRINTER")))
'("-dbw717pap2")))
(setq ps-lpr-command "/bin/lp")
(setq ps-paper-type 'a4)
(setq ps-number-of-columns 2)
(setq ps-landscape-mode t)
;;-----------------------------------------------------------------------
;; blinking parantheses
(show-paren-mode t)
;; personal key defs
(fset 'ins-parentheses
"()")
(global-set-key [f5] 'ins-parentheses)
(fset 'ins-brackets
"[]")
(global-set-key [f6] 'ins-brackets)
(fset 'ins-braces
"{}")
(global-set-key [f7] 'ins-braces)
(fset 'ins-angel-brackets
"<>")
(global-set-key [f8] 'ins-angel-brackets)
(fset 'ins-backslash
"\\")
(global-set-key [f9] 'ins-backslash)
(fset 'delete-before
"")
(define-key global-map [select] 'delete-before)
(global-set-key "\C-cg" 'goto-line)
(global-set-key "\C-cc" 'goto-char)
(global-set-key [?\C->] 'other-window)
(global-set-key [?\C-<] 'other-window)
;;
;; load specific extensions
;;
;;my specific extensions
;;auxiliary definitions
(defun replace-str(old new)
(save-excursion
(goto-char (point-min))
(while (search-forward old nil t )
(replace-match new t t ))
))
;;;------------------------edif one frame--------------------------
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
(setq ediff-cleanup-hook (list 'ediff-janitor))
;;;;-------------------- Autloads ---------------------------------
(autoload 'gin-mode "gin-mode" "guess indentation mode" t)
;;;;----------------------Font lock---------------------------------
(add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)
(add-hook 'idl-mode-hook 'turn-on-font-lock)
(add-hook 'dired-mode-hook 'turn-on-font-lock)
(add-hook 'SGML-mode-hook 'turn-on-font-lock)
;;;;------------------ Makefile mode -------------------------------
(setq auto-mode-alist
(cons (cons "[Mm]akefile\\'" 'makefile-mode)
auto-mode-alist))
;;;;-------------------- cvs stuff------------------------------------
(require 'load-cvs-mode)
;;;--------------------Java Mode-----------------------------------
(message "vor load-jde")
(require 'load-jde_)
(message "jde")
;;;;------------------ Perl Mode -----------------------------------
(autoload 'perl-mode "perl-mode" "Perl Editing Mode" t)
(setq auto-mode-alist
(cons '("\\.pl$" . perl-mode)
auto-mode-alist))
(message "perl-mode")
;;;--------------------Shell-Mode -----------------------------------
(autoload 'sh-mode "sh-mode" "Shell Editing Mode" t)
(autoload 'csh-mode "csh-mode" "C-hell Editing Mode" t)
(setq auto-mode-alist
(cons '("\\.sh$" . sh-mode)
auto-mode-alist))
(message "csh-mode")
;;;---------------------IDL-Mode---------------------------------------
(autoload 'idl-mode "idl-mode" "IDL Editing Mode" t)
(setq auto-mode-alist
(cons '("\\.idl$" . idl-mode)
auto-mode-alist))
;;;----------------------html-mode---------------------------------------
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq html-helper-do-write-file-hooks 't)
(setq html-helper-build-new-buffer t)
(setq html-helper-address-string
"<a href=\"http://www.isst.fhg.de/~ukriegel/\">E. Ulrich Kriegel
<[EMAIL PROTECTED]></a>")
;; be sure `font-lock-maximum-decoration' exists
(defvar font-lock-maximum-decoration nil)
(if (listp font-lock-maximum-decoration )
(setq font-lock-maximum-decoration
(append font-lock-maximum-decoration
'((HTML-mode . nil) (latex-mode . 2) (c-mode . 3)
(emacs-lisp-mode . 3)))) )
(message "XXX")
(message "vor uml2html")
(defun uml2html()
(interactive)
(replace-str "�" "Ä")
(replace-str "�" "ä")
(replace-str "�" "Ö")
(replace-str "�" "ö")
(replace-str "�" "Ü")
(replace-str "�" "ü")
(replace-str "�" "ß")
(replace-str "�" "«")
(replace-str "�" "»")
)
(defun html2uml()
(interactive)
(replace-str "Ä" "�")
(replace-str "ä" "�")
(replace-str "ö" "�")
(replace-str "Ö" "�")
(replace-str "ü" "�")
(replace-str "Ü" "�")
(replace-str "ß" "�")
(replace-str "«" "�")
(replace-str "»" "�")
)
(fset 'ins-fhg-quota "»«")
(setq html-helper-mode-hook 'html2uml)
(add-hook 'html-helper-mode-hook
'(lambda ()
(setq case-fold-search nil) ; make searches case sensitive
(html2uml)
(local-set-key [f12] 'html2uml)
(local-set-key [f11] 'ins-fhg-quota)
(make-local-variable 'compile-command)
(setq local-write-file-hooks 'uml2html)
(setq compile-command
(concat "weblint -x netscape " buffer-file-name))))
;;---------------------------ispell------------------------------------------
(defun deutsch-ispell () (interactive)
(setq ispell-dictionary "deutsch8")
(ispell-kill-ispell t)
(message "Ispell wird jetzt das Deutsches W�rtebuch benutzen"))
(defun english-ispell () (interactive)
(setq ispell-dictionary ())
(ispell-kill-ispell t)
(message "Ispell will now use the english dictionary"))
(define-key global-map [menu-bar help dispell]
'("Deutsch ispell" . deutsch-ispell))
(define-key global-map [menu-bar help eispell]
'("English ispell" . english-ispell))
;;;-----------------------interpreter modes--------------------------------
(setq interpreter-mode-alist (cons '("sh" . sh-mode) (cons '("csh"
. csh-mode )(cons
'("tcsh" . csh-mode) interpreter-mode-alist))))
;;-------------------------
;; CR insert/remove
;;-------------------------
(standard-display-ascii 13 "") ; unsichtbare ^M
(defun unix2dos ()
;; This function really does work now, changed `replace-string()'
;; to `replace-regexp()' which does the business !! *PP*
"Convert this entire buffer from UNIX text file format to MS-DOS."
(interactive)
(dos2unix); kills preventive all ^M to set them again
(save-excursion
(goto-char (point-min))
(replace-regexp "$" "\015" )
(goto-char (point-max))
(insert "\n\C-z")))
(message "unix2dos")
(defun dos2unix ()
"Convert this entire buffer from MS-DOS text file format to UNIX."
(interactive)
(save-excursion
(goto-char (point-min))
(replace-regexp "\r$" "" nil)
(goto-char (1- (point-max)))
(if (looking-at "\C-z")
(delete-char 1))))
(message "dos2unix")
;;multi-mode
(autoload 'multi-mode
"multi-mode"
"Allowing multiple major modes in a buffer."
t)
(defun jsp-mode () (interactive)
(multi-mode 1
'html-mode
;;'("<%" java-mode)
'("<%" jde-mode)
'("%>" html-mode)))
(setq auto-mode-alist
(cons '("\\.jsp$" . jsp-mode)
auto-mode-alist))
(setq case-fold-search nil)
(custom-set-variables
'(transient-mark-mode t)
'(jde-bug-jdk-directory "/opt/JAVA/JDK/2.0")
'(jde-db-source-directories (quote ("/home/ukriegel/intbas/" "/tmp/.uk/src/")))
'(jde-run-option-application-args (quote ("/home/ukriegel/intbas/de/bsh/fire/corba "
"de.bsh.fire.corba" "IDLAspect.java")))
'(jde-gen-console-buffer-template (quote ("(funcall jde-gen-boilerplate-function) 'n"
"\"/**\" 'n" "\" * \"" "(file-name-nondirectory buffer-file-name) 'n" "\" *\" 'n" "\"
*\" 'n" "\" * Created: \" (current-time-string) 'n" "\" *\" 'n" "\" * @author $Author$
\" (user-full-name) 'n" "\" * @version\" 'n" "\" *\" 'n" "\" * $Log$\" 'n" "\" *\" 'n"
"\" */\" 'n>" "'n>" "\"public class \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "\" {\" 'n> 'n>" "\"public \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"() {\" 'n>"
"'n>" "\"}\" 'n>" "'n>" "\"public static void main(String[] args) {\" 'n>" "'p 'n>"
"\"}\" 'n> 'n>" "\"} // \"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'n>")))
'(jde-gen-class-buffer-template (quote ("(funcall jde-gen-boilerplate-function) 'n"
"\"/**\" 'n" "\" * \"" "(file-name-nondirectory buffer-file-name) 'n" "\" *\" 'n" "\"
*\" 'n" "\" * Created: \" (current-time-string) 'n" "\" *\" 'n" "\" * @author $Author$
\" (user-full-name) 'n" "\" * @version\" 'n" "\" * \" `n" "\" * $Log$\" `n" "\" */\"
'n>" "'n>" "\"public class \"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" \" (jde-gen-get-super-class) \" {\" 'n> 'n>" "\"public \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"() {\" 'n>"
"'p 'n>" "\"}\" 'n>" "'n>" "\"} // \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "'n>")))
'(jde-compiler "javac -g -deprecation")
'(jde-db-debugger (quote ("oldjdb" "" . "Executable")))
'(jde-global-classpath (quote ("/home/ukriegel/intbas" "/home/ukriegel/intbas/test"
"/opt/JAVA/JUNIT/3.2/junit.jar" "/home/inetbas/classes/m3envobj.jar"
"/home/ukriegel/intbas/de/bsh/fire/web"
"/home/ukriegel/intbas/de/fhg/isst/tools/loadtest")))
'(jde-bug-jpda-directory "/opt/JAVA/JAVAX/JPDA")
'(jde-db-option-application-args (quote ("-modifier" "public" "-pattern" "m"
"/home/ukriegel/intbas/de/bsh/fire/corba" "de.bsh.fire.corba" "IDLAspect.java"))))
(custom-set-faces)
;;; Fraunhofer ISST
;;; Module zum bereitstellen der Java-Entwicklungsumgebung
;;; $Author: ukriegel $
;;; $Date: 1999/12/21 12:20:51 $
;;; $Log: load-jde.el,v $
;;; Revision 1.7 1999/12/21 12:20:51 ukriegel
;;; EGCS
;;;
;;; Revision 1.6 1999/03/23 06:31:18 ukriegel
;;; Pfad w3 added
;;;
;;; Revision 1.5 1998/11/30 15:57:41 ukriegel
;;; tippfehler
;;;
;;; Revision 1.4 1998/11/30 15:55:05 ukriegel
;;; load-path extended for gifts
;;;
;;; Revision 1.3 1998/10/16 13:54:59 ukriegel
;;; load-path �ber link jde
;;;
;;; Revision 1.2 1998/10/16 11:38:04 ukriegel
;;; automatisches laden des cc-modes
;;;
;;; Revision 1.1 1998/10/16 11:20:32 ukriegel
;;; Initial revision
;;;
;;;
(setq load-path
(append
'(
"/opt/EGCS/share/emacs/site-lisp/jde-2.2.4/lisp"
"/opt/EGCS/share/emacs/site-lisp/speedbar"
"/opt/EGCS/share/emacs/site-lisp/semantic"
"/opt/EGCS/share/emacs/site-lisp/elib"
"/opt/EGCS/share/emacs/site-lisp/jde-gifts"
"/opt/EGCS/share/emacs/site-lisp/w3/lisp"
)
load-path))
(require 'load-cc-mode)
(require 'jde)
(message "load-jde loaded")
(provide 'load-jde_)
