Hi
I stated the debugger and then I try to launch Proces I get this error:
from *messages*
Error: evaluating output from the debugger caused a Lisp error.
Debugger output: .
Lisp error: (end-of-file)
Wrong type argument: listp, "Lisp error: (end-of-file)"
from process window.
*** Debugger Output for Process
dk.krifa.gui.view.StottetOgVirksomhedView(1) ***
Error: evaluating debugger output caused a Lisp error.
See *messages* buffer for details.
Here are my .emacs
;; -*- Emacs-Lisp -*-
;;; load-path
(setq screen-width (x-display-pixel-width)
screen-height (x-display-pixel-height))
(setq default-frame-alist
(if (= screen-width 800)
'(
(width . 97) (height . 33)
(top . 0) (left . 0))
'(
(width . 125) (height . 43)
(top . 0) (left . 0))))
; colors
;(iconify-frame (selected-frame))
;;; Start off in "home" dir.
(cd (getenv "HOME"))
(put 'eval-expression 'disabled nil)
;;Gnus stuff
;; Gnus server
;(setq gnus-nntp-server "news.aopen.com.tw")
;(setq gnus-nntp-server "news.edu.sollentuna.se")
(setq gnus-nntp-server "news.tele.dk")
;(setq gnus-nntp-server "sunsite.auc.dk")
;; show column number
(column-number-mode 1)
(set-background-color "lemon chiffon")
(set-foreground-color "darkblue")
(setq max-lisp-eval-depth 400)
(setq frame-title-format "%b")
(setq make-backup-files nil)
;(require 'jde-auto-abbrev)
;jde-auto-abbrev-enable-local
;jde-auto-abbrev-enable
(require 'cus-edit)
(require 'print-nt)
(setq gs-print-command "x:/apps/gnu/gstools/gs5.50/gswin32.exe")
(setq gs-view-command "x:/apps/gnu/gstools/gsview/gsview32.exe")
;(menu-bar-mode nil)
;(scroll-bar-mode nil)
(setq load-path (append (list
"x:/apps/gnu/emacs/20.41/site-lisp/custom-1.9961/"
"x:/apps/gnu/emacs/20.41/site-lisp/cc-mode/"
"x:/apps/gnu/emacs/20.41/site-lisp/elib-1.0/"
"x:/apps/gnu/emacs/20.41/site-lisp/pcl-cvs-2.9.8/"
"x:/apps/gnu/emacs/20.41/site-lisp/jde-2.2.1/lisp"
"x:/apps/gnu/emacs/20.41/site-lisp/semantic-1.2.1/"
"x:/apps/gnu/emacs/20.41/site-lisp/speedbar-0.12/"
) load-path))
;;; General
;; About me
(setq user-full-name "Lars Michael Hansen")
(setq user-mail-address "[EMAIL PROTECTED]")
(setq sender "[EMAIL PROTECTED]")
(setq smtpmail-default-smtp-server "mail.gmx.net")
(setq smtpmail-local-domain nil)
(setq send-mail-function 'smtpmail-send-it)
(load-library "smtpmail")
;; DKF stuff
(autoload 'dkf-insert-header "dkf" "Insert copyright, etc" t)
(autoload 'dkf-create-compile-command "dkf" "Create compile command for
.java files" t)
(autoload 'dkf-insert-java-skeleton "dkf" "Create java skeleton" t)
(autoload 'prj "dkf" "Change project" t)
(autoload 'mainprj "dkf" "Change Main project name" t)
;; Tell Emacs to load the entire JDE package at startup (only once).
(require 'jde)
;; Move point to end of prompts
(defadvice next-history-element (after end-nhe act comp)
"Forces point to be at the end instead of at the beginning of prompt."
(goto-char (point-max)))
;; Sets the basic indentation for Java source files
;; to two spaces.
;(defun my-jde-mode-hook ()
; (setq c-basic-offset 2))
;; Enable eval-expression
(put 'eval-expression 'disabled nil)
;; Enable 'eval' in local variables
(setq enable-local-eval t)
;; 8-bit character handling
(standard-display-european nil)
;; Swap mouse-button-2 and -3
(setq win32-swap-mouse-buttons t)
;; Use word-wrap in text modes
; (add-hook 'text-mode-hook 'turn-on-auto-fill)
;; Highlight parens
;(load "paren")
'(paren-mode (quote paren) nil (paren))
;; Use spaces instead of tabs for indenting
(setq-default indent-tabs-mode nil)
;; Don't let down-arrow create new lines
(setq next-line-add-newlines nil)
;; Enable marking with shift-arrows
(load "pc-select")
(pc-selection-mode)
;; Default compile command
(setq compile-command "nmake -nologo")
(setq compilation-error-regexp-alist
'(
;; IBM Jikes compiler
;; hello.java:3:6:3:15: Semantic:"system/out" is either a misplaced
package name or...
("^\\(\\([A-Za-z]:\\)?[A-Za-z0-9_.-/\\]+\\):\\([0-9]+\\):\\([0-9]
+\\):" 1 3 4)
; ("^\\([A-Za-z0-9_.-/\\]+\\):\\([0-9]+\\):\\([0-9]+\\):" 1 2 3)
;; Sun JDK javac compiler
;; WMFOutputStream.java:23: Undefined variable: _file
;; _file = new WindowsMetafile(name);
("^\\([A-Za-z0-9_.-/\\]+\\):\\([0-9]+\\):" 1 2)
;; Microsoft C/C++:
;; keyboard.c(537) : warning C4005: 'min' : macro redefinition
;; d:\tmp\test.c(23) : error C2143: syntax error : missing ';'
before 'if'
; ("^\\(\\([a-zA-Z]:\\)?[^:( \t\n-]+\\)[:(][ \t]*\\([0-9]+\\)[:)
\t]" 1 3)
; ("^\\([A-Za-z0-9_.-/\\]+\\)(\\([0-9]+\\)) :" 1 2)
;; Microsoft Java Compiler (jvc):
;; PortOutputStream.java(54,17) : error J0165: Cannot throw
exception...
; ("^\\([A-Za-z0-9_.-/\\]+\\)(\\([0-9]+\\),\\([0-9]+\\)) :" 1 2 3)
))
;; Height of error message window
(setq compilation-window-height 8)
;; File extensions
(setq auto-mode-alist
(append '(
("\\.[4f]th$" . forth-mode)
("\\.c$" . c++-mode)
("\\.cc$" . c++-mode)
("\\.cpp" . c++-mode)
("\\.h$" . c++-mode)
; ("\\.java$" . java-mode)
("\\.j$" . jasmin-mode)
; ("\\.mocha$" . java-mode)
("\\.asm$" . asm-mode)
("\\.s?html?$" . html-helper-mode)
("\\.jhtml?$" . html-helper-mode)
("\\.template$" . html-helper-mode)
("\\.definitions$" . html-helper-mode)
("\\.jar$" . archive-mode)
("\\.mak$" . makefile-mode)
("\\.p[lm]$" . perl-mode)
("\\.tk$" . tcl-mode)
; ("\\.txt$" . indented-text-mode)
("\\.txt$" . powerhouse-mode)
) auto-mode-alist))
;;; Global keys
(defun scroll-down-3 ()
"scroll window 3 line up"
(interactive)
(scroll-up 3))
(defun scroll-up-3 ()
"scroll window 3 line down"
(interactive)
(scroll-down 3))
(global-set-key "\C-g" 'goto-line)
(global-set-key [f1] 'help-for-help)
(global-set-key [C-f1] 'winhelp)
(global-set-key [f3] 'speedbar-get-focus)
(global-set-key [f4] 'next-error)
(global-set-key [C-f4] 'kill-this-buffer)
(global-set-key [M-f4] 'kill-buffer-and-frame)
(global-set-key [C-tab] 'bubble-buffer)
(global-set-key [S-C-tab] 'bubble-buffer-back)
(global-set-key [f5] 'jde-run)
(global-set-key [C-f5] 'jde-debug)
(global-set-key [f6] 'jde-local-insert)
(global-set-key [C-f6] 'bury-buffer)
(global-set-key [f7] 'jde-compile)
(global-set-key [f8] 'jde-bug-set-breakpoint)
(global-set-key [S-f8] 'jde-bug-clear-breakpoint)
(global-set-key [C-f8] 'jde-bug-display-variable)
(global-set-key [f9] 'next-error)
(global-set-key [C-f9] 'first-error)
(global-set-key [M-f9] 'previous-error)
(global-set-key [S-f10] 'jde-bug-continue)
(global-set-key [f10] 'jde-bug-step-over)
(global-set-key [f11] 'jde-bug-step-into)
(global-set-key [S-f11] 'jde-bug-step-out)
(global-set-key "\C-m" 'newline-and-indent)
(global-set-key [M-\C-tab] 'toggle-tab-width)
(global-set-key [\C-delete] 'kill-word)
(global-set-key [S-f12] 'start-kbd-macro)
;(global-set-key [\C-f12] 'end-kbd-macro)
(global-set-key [S-return] 'jde-complete-at-point)
;(global-set-key [\C-return] 'jde-auto-abbrev)
(global-set-key [\C-return] 'dabbrev-expand)
;(global-set-key [f12] 'call-last-kbd-macro)
(global-set-key [\C-f11] 'indent-region)
(global-set-key [\C-down] 'scroll-down-3)
(global-set-key [\C-up] 'scroll-up-3)
;; bubble
(autoload 'bubble-buffer "bubble" "Cycle through buffers not matching
`bubble-skip-regexp'." t)
(autoload 'bubble-buffer-back "bubble" "Do bubble-buffer backwards." t)
(setq bubble-skip-regexp "^[ \\*]")
;; Speedbar support
(add-hook 'speedbar-load-hook
'(lambda ()
(speedbar-add-supported-extension ".html?")
(setq speedbar-frame-parameters
(append speedbar-frame-parameters '((top . 0) (left .
28))))))
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
(defun kill-buffer-and-frame()
"kill this buffer and its frame"
(interactive)
(kill-this-buffer)
(delete-frame))
(defun toggle-tab-width ()
"Toggle tab-width between 4 and 8"
(interactive)
(if (= tab-width 2)
(setq tab-width 4)
(setq tab-width 2))
(redraw-display)
(message "Tab width set to %d" tab-width))
(defvar help-file "" "Current help file")
(defun winhelp ()
"Call winhlp32 and look up the keyword"
(interactive)
(start-process "winhelp" nil "cmdproxy" "-c" (concat "winhlp32 -k "
(thing-at-point 'sexp) " " help-file)))
(define-key ctl-x-map "m" 'message-mail)
;;; GnuServ
(require 'gnuserv)
(setq gnuserv-frame (selected-frame)) ; use same frame
(gnuserv-start)
;;; Minor modes
;;; Font-lock
(if window-system
(progn
;; Maximum size of menu to fontify if `Info-fontify' is non-nil.
;; Increased from default of 30000 for elisp manual main menu
(setq Info-fontify-maximum-menu-size 40000)
(setq Info-fontify t)
(if (not (internal-find-face 'my-info-face))
(make-face 'my-info-face))
(copy-face 'bold 'my-info-face)
(copy-face 'my-info-face 'info-menu-5)
(set-face-foreground 'info-menu-5 "Red")
(copy-face 'my-info-face 'info-node)
(set-face-foreground 'info-node "DodgerBlue")
(copy-face 'my-info-face 'info-xref)
(set-face-foreground 'info-xref "Magenta")
(defconst font-lock-face-attributes
'((font-lock-comment-face "DarkGreen")
(font-lock-string-face "Firebrick")
(font-lock-keyword-face "Blue")
(font-lock-function-name-face "Navy")
; (font-lock-function-name-face "DeepPink")
(font-lock-variable-name-face "Maroon")
(font-lock-type-face "MediumBlue")
(font-lock-reference-face "CornflowerBlue")))
; '((font-lock-comment-face "DarkGreen")
; (font-lock-string-face "Firebrick")
; (font-lock-keyword-face "Magenta")
; (font-lock-function-name-face "BlueViolet")
; (font-lock-variable-name-face "DodgerBlue")
; (font-lock-type-face "DarkOrange")
; (font-lock-reference-face "DarkTurquoise")))
(global-font-lock-mode t)
(setq font-lock-maximum-decoration 5)
(require 'font-lock)
(require 'lazy-lock)
(setq font-lock-support-mode 'lazy-lock-mode)
(setq lazy-lock-minimum-size 2000)
(setq font-lock-maximum-decoration t)
(global-set-key "\C-ccf" 'font-lock-fontify-buffer)))
;;; makefile-mode
(defun create-makefile-compile-command ()
"Create the right make command for a makefile"
(make-local-variable 'compile-command)
(let ((file (file-name-nondirectory buffer-file-name)))
(if (string-equal file "makefile")
(setq compile-command "nmake -nologo ")
(setq compile-command (concat "nmake -nologo -f " file " ")))))
(add-hook 'makefile-mode-hook
'(lambda ()
(create-makefile-compile-command)))
;;; archive-mode
(setq archive-zip-use-pkzip nil) ;use zip/unzip
(setq archive-zip-case-fiddle nil) ;don't fiddle with upper/lower case
;;; dired
;; Use dired-x
(add-hook 'dired-load-hook
(function (lambda ()
(load "dired-x")
;; Set dired-x global variables here.
(setq dired-omit-files (concat dired-omit-files "
\\|^CVS$"))
;; Bind dired-x-find-file.
(setq dired-x-hands-off-my-keys nil)
;; Make sure our binding preference is invoked.
(dired-x-bind-find-file))))
(add-hook 'dired-mode-hook
(function (lambda ()
;; Set dired-x buffer-local variables here.
(setq dired-omit-files-p t)
(set (make-local-variable 'compile-command) "nmake
-nologo"))))
(define-key global-map "\C-x\C-j" 'dired-jump)
;; Don't want completion on these files
(setq completion-ignored-extensions
(append (list "CVS" ".class" ".dll" ".exp" ".lib" ".res")
completion-ignored-extensions))
;;; PCL-CVS
(require 'pcl-cvs)
(setq cvs-auto-remove-handled t)
(define-key global-map [C-f6] 'cvs-update)
(define-key global-map [C-S-f6] 'cvs-do-commit)
(setq cvs-program "u:\\bin\\cvs.exe")
(setq cvs-diff-program "u:\\bin\\diff.exe")
(setq cvs-rmdir-program "u:\\bin\\rm.exe")
(setq cvs-shell "C:\\WINNT\\system32\\cmd.exe")
(autoload 'cvs-examine "pcl-cvs"
"Run a 'cvs -n update' in the current working directory." t)
(autoload 'cvs-update "pcl-cvs"
"Run a 'cvs update' in the current working directory.
If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." t)
(autoload 'cvs-update-other-window "pcl-cvs"
"Run a 'cvs update' in the current working directory.
If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." t)
(setq cvs-inhibit-copyright-message t) ;no copyright message
(setq cvs-diff-flags '("-c")) ;context diffs
;; font-lock support
(defvar cvs-font-lock-keywords
(list
(list "^\\(In directory .*\\)" 1 'font-lock-comment-face t)
(list "^ +\\(Modified .*\\)" 1 'font-lock-keyword-face t)
(list "^ +\\(Added .*\\)" 1 'font-lock-reference-face t)
(list "^ +\\(Unknown .*\\)" 1 'font-lock-variable-name-face t)
(list "^ +\\(Conflict .*\\)" 1 'font-latex-warning-face t)
(list "^ +\\(Removed .*\\)" 1 'font-lock-string-face t)
)
"Keywords to hilight in cvs mode")
(add-hook 'cvs-mode-hook
'(lambda () (make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(cvs-font-lock-keywords t))
(font-lock-fontify-buffer)))
;;; C/C++/Java
(load "cc-mode-19")
(load "cc-mode")
(autoload 'c++-mode "cc-mode" "C++ Editing Mode" t)
(autoload 'java-mode "cc-mode" "Java Editing Mode" t)
;; comment-start and -end should be on a line of their own
(setq c-hanging-comment-starter-p nil)
(setq c-hanging-comment-ender-p nil)
(defconst my-c-style
'((c-tab-always-indent . t)
(c-comment-only-line-offset . 4)
(c-hanging-braces-alist . ((defun-open after)
(class-open after)
(inline-open after)
(block-open after)
(substatement-open after)
(statement-case-open after)
(brace-list-open after)))
(c-hanging-colons-alist . ((member-init-intro before)
(inher-intro)
(case-label after)
(label after)
(access-label after)))
(c-cleanup-list . (scope-operator
;empty-defun-braces
defun-close-semi))
(c-offsets-alist . ((access-label . -2)
(arglist-close .
c-lineup-arglist)
(block-open . 0)
(case-label . 2)
(statement-case-intro . 2)
(comment-intro . 0)
(inclass . +)
(knr-argdecl-intro . -)
(substatement-open . 0)))
; (c-echo-syntactic-information-p . t)
)
"My C++/Java Programming Style")
;; Customizations for all of c-mode, c++-mode, and objc-mode
(defun my-c-mode-common-hook ()
;; add my personal style and set it for the current buffer
(c-add-style "PERSONAL" my-c-style t)
;; offset customizations not in my-c-style
(c-set-offset 'member-init-intro '++)
;; other customizations
(setq tab-width 4)
;; this will make sure spaces are used instead of tabs
(setq indent-tabs-mode nil)
;; we like hungry-delete
(c-toggle-hungry-state 1)
;; continued comments start with this:
(setq c-comment-continuation-stars "* ")
;; show column number
(column-number-mode 1)
;; make dynamic abbreviation case-sensitive
(set (make-local-variable 'dabbrev-case-fold-search) nil)
(set (make-local-variable 'dabbrev-case-replace) nil)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;;; C++
(autoload 'find-file "find-file" "find a file corresponding to this one
given a pattern")
(setq cc-search-directories
(list
"."
(concat (getenv "JDK_ROOT") "/include/*")))
(add-hook 'c++-mode-hook
'(lambda ()
(define-key c++-mode-map "\C-c\C-f" 'ff-find-other-file)
(set (make-local-variable 'compile-command) "nmake -nologo")))
;;; Java
;; jamacs
(autoload 'jamacs-init-vars "jamacs" "Initialize jamacs variables from
environment" t)
(autoload 'jamacs-file-to-package "jamacs" "Insert package name" t)
(autoload 'jamacs-api-help "jamacs" "Get help for class at point" t)
(autoload 'jamacs-find-class "jamacs" "Find implementation of class at
point" t)
(autoload 'jamacs-find-method "jamacs" "Find method at point" t)
(autoload 'jamacs-insert-html "jamacs" "Insert HTML tags around region" t)
(setq jamacs-apiref-location (concat (getenv "JDK_ROOT") "/docs/api/"))
(setq jamacs-doc-dir (concat (getenv "PRO_ROOT") "/doc/api/"))
(add-hook 'java-mode-hook
'(lambda ()
; (require 'andersl-java-font-lock)
(require 'cl)
(require 'jdok)
; (turn-on-font-lock)
; (jamacs-create-menu)
(local-set-key [C-f1] 'jamacs-api-help)
(local-set-key [f12] 'jamacs-find-class)
(local-set-key [S-f12] 'jamacs-pop-point)
(local-set-key [C-f12] 'jamacs-find-method)
(local-set-key "\C-ch" 'jamacs-insert-html)
(local-set-key "\C-cv" 'jamacs-view-javadoc)
(if (zerop (buffer-size))
(dkf-insert-java-skeleton))
(set (make-local-variable 'compile-command)
(concat "jikes " (file-name-nondirectory
buffer-file-name)))))
;;; Jasmin
(autoload 'jasmin-mode "jasmin" "Jasmin mode" t)
;;; Tcl/Tk
;(setq tcl-default-application "x:/eos/devel/tcl/v8.0/bin/tclsh80.exe")
;(add-hook 'tcl-mode-hook
; '(lambda ()
; (set (make-local-variable 'help-file) "X:
\\eos\\devel\\tcl\\v8.0\\doc\\tcl80.hlp")))
;;; Html
(defvar html-imenu-regexp
(list (list nil "<[hH][1-9][^>]*>\\([ \t\n]*<[^>]+>\\)*[ \t\n]*\\([^<]
+\\)" 2))
"Imenu expression for HTML")
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq html-helper-htmldtd-version "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML
3.2 Final//EN\">\n")
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
(setq html-helper-use-expert-menu t)
(setq html-helper-never-indent nil)
(setq html-helper-address-string
(concat user-full-name " <<a href=\"mailto:" user-mail-address "
\">" user-mail-address "</a>>"))
(add-hook 'html-helper-mode-hook
'(lambda ()
(setq fill-column 90)
(auto-fill-mode 1)
(setq imenu-generic-expression html-imenu-regexp)
; (local-set-key [?\�] (lambda() (interactive) (insert "
æ")))
; (local-set-key [?\�] (lambda() (interactive) (insert "
ø")))
; (local-set-key [?\�] (lambda() (interactive) (insert "
å")))
; (local-set-key [?\�] (lambda() (interactive) (insert "
Æ")))
; (local-set-key [?\�] (lambda() (interactive) (insert "
Ø")))
; (local-set-key [?\�] (lambda() (interactive) (insert "
Å")))
(setq html-helper-timestamp-hook
'my-html-helper-insert-timestamp)
(require 'hhm-table)))
(defun my-html-helper-insert-timestamp ()
"Custom timestamp insertion function."
(insert (current-time-string) "\n"))
;; browse-url
(load-library "my-url")
(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)
(load-library "simple-web")
;;; Perl
(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl
programs" t)
(setq cperl-indent-level 4)
;;; Generic (bat, ini, rc, ...)
(require 'generic-mode)
(require 'generic-extras)
(alter-generic-mode-auto-mode 'ini-generic-mode (list "\\.mc"))
(alter-generic-mode-auto-mode 'bat-generic-mode (list "\\.cmd"))
(define-generic-mode 'properties
(list ?#)
nil
'(("^\\(\\[.*\\]\\)" 1 'font-lock-reference-face)
("^\\(.*\\)=" 1 'font-lock-variable-name-face))
(list "\\.properties$")
nil
"Generic mode for Java properties files")
;;; Time
(setq display-time-24hr-format t)
(display-time)
;;; DOS->Unix / Unix->DOS functions
(defun dos2ux-region (start end)
"Remove ^M characters in the region from START to END"
(interactive "r")
(save-excursion
(save-restriction
(goto-char start)
(narrow-to-region start end)
(replace-string "\C-m" ""))))
(defun dos2ux ()
"Run dos2ux over the entire buffer. See also dos2ux-region"
(interactive)
(dos2ux-region (point-min) (point-max)))
(defun ux2dos-region (start end)
"Add ^M characters in the region from START to END"
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region start end)
(goto-char start)
(replace-string "\C-j" "\C-m\C-j"))))
(defun ux2dos ()
"Run ux2dos over the entire buffer. See also ux2dos-region"
(interactive)
(ux2dos-region (point-min) (point-max)))
(defun file-type-text ()
"Treat current file as text (lines separated by CRLF)"
(interactive)
(setq buffer-file-type nil))
(defun file-type-binary ()
"Treat current file as binary (lines separated by LF)"
(interactive)
(setq buffer-file-type t))
(put 'upcase-region 'disabled nil)
(set-default 'truncate-lines t)
(require 'auto-show)
(setq-default auto-show-mode t)
(add-hook 'post-command-hook 'auto-show-make-point-visible)
(add-hook 'comint-output-filter-functions 'auto-show-make-point-visible t)
;(defun next-function-name-face ()
; "Point to next `font-lock-function-name-face' text."
; (interactive)
; (let ((pos (point)))
; (if (eq (get-text-property pos 'face) 'font-lock-function-name-face)
; (setq pos (or (next-property-change pos) (point-max))))
; (setq pos (text-property-any pos (point-max) 'face
;'font-lock-function-name-face))
; (if pos
; (goto-char pos)
; (progn
; (goto-char (point-max))
; (message "End of buffer")))))
;(defun prev-function-name-face ()
; "Point to previous `font-lock-function-name-face' text."
; (interactive)
; (let ((pos (point)))
; (if (eq (get-text-property pos 'face) 'font-lock-function-name-face)
; (setq pos (or (previous-property-change pos) (point-min))))
; (setq pos (previous-property-change pos))
; (while (and pos (not (eq (get-text-property pos 'face)
;'font-lock-function-name-face)))
; (setq pos (previous-property-change pos)))
; (if pos
; (progn
; (setq pos (previous-property-change pos))
; (goto-char (or (and pos (1+ pos)) (point-min))))
; (progn
; (goto-char (point-min))
; (message "Beginning of buffer")))))
;(global-set-key [\S-\C-n] 'next-function-name-face)
;(global-set-key [\S-\C-p] 'prev-function-name-face)
;;extra font lock
(cond ((fboundp 'global-font-lock-mode)
(require 'extra-java-font-lock)
(setq font-lock-maximum-decoration t)
(global-font-lock-mode t)
))
(require 'desktop)
;;;USE DESKTOP
(desktop-load-default)
(desktop-read)
;;Save desktop before quitting emacs?
(remove-hook 'kill-emacs-hook 'desktop-kill)
(add-hook 'kill-emacs-hook 'desktop-ask-kill)(defun desktop-ask-kill ()
"when exiting, ASKS if you want to save the desktop first."
(if desktop-dirname (if (y-or-n-p
(format "Save desktop configuration to %s? "desktop-dirname))
(condition-case err (desktop-save desktop-dirname)
(file-error (if (yes-or-no-p
"Error while saving the desktop. Quit anyway? ")
nil (signal (car err) (cdr err))))))))
(put 'downcase-region 'disabled nil)
;(diary)
;(show-all-diary-entries)
;Customize values
(custom-set-variables
'(jde-run-option-properties (quote (("user.home" . "u:\\home"))))
'(jde-compile-option-command-line-args "-g")
'(jde-setnu-mode-enable nil)
'(jde-imenu-sort (quote asc))
'(jde-db-option-classpath (quote ("u:\\projects\\udvik\\Genesis\\src" "u:
\\projects\\udvik\\Genesis\\classes")))
'(jde-bug-jdk-directory "x:\\devel\\jdk\\1.3")
'(jde-db-source-directories (quote ("x:/devel/sun/jdk/1.3/src"
"u:/projects/udvik/genesis/src")))
'(jde-run-option-vm-args (quote ("")))
'(jde-compiler "%compile_command%")
'(jde-db-debugger (quote ("JDEbug" "jdb" . "Executable")))
'(jde-global-classpath nil)
'(jde-enable-abbrev-mode t)
'(jde-bug-jpda-directory "x:\\devel\\sun\\jpda\\1.0")
'(jde-run-java-vm-w "javaw")
'(jde-bug-vm-includes-jpda-p t))
(custom-set-faces)
Regards
Lars M.
