I have been tinkering for weeks trying to get the jde to work again. It was
working w/ 20.4.1 but now I can't get it right. Any help would be
appreciated.
thanks
Isaac
[EMAIL PROTECTED]
[EMAIL PROTECTED]
Win98 PII 350mhz
320mb ram
*****************
Back tracing
******************
Signaling: (error "Invalid escape character syntax")
eval-buffer(#<buffer *load*> nil "~/.emacs")
load-with-code-conversion("c:/.emacs" "~/.emacs" t t)
load("~/.emacs" t t)
#[nil "�S
SET
PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\emacs\emacs-20.5\site-lisp\jde-2.1.6b6
\lisp;C:\emacs\emacs-20.5\bin;C:\emacs\emacs-20.5\bin\gnuserv;C:\bin;C:\jdk1
.2.1\bin
************************
My .emacs
************************
;; add private lisp directory to load-path
(add-to-list 'load-path "~/emacs")
;; =================================================================
;; This section set using customize
;; =================================================================
(custom-set-variables
'(show-paren-style (quote mixed))
'(c-electric-pound-behavior (quote (alignleft)))
'(display-time-day-and-date t)
'(c-cleanup-list (quote (empty-defun-braces list-close-comma
scope-operator)))
'(inhibit-startup-message t)
'(lazy-lock-stealth-lines 50)
'(c-mode-common-hook (quote my-c-mode-common-hook))
'(display-time-mode t nil (time))
'(lazy-lock-defer-on-scrolling nil)
'(resize-minibuffer-mode t nil (rsz-mini))
'(shell-mode-hook (quote (shell-mode-setup)))
'(lazy-lock-stealth-time 20)
'(show-paren-mode t nil (paren))
'(ange-ftp-default-user "anonymous")
'(font-lock-support-mode (quote lazy-lock-mode))
'(font-lock-maximum-size nil)
'(lazy-lock-defer-time 1)
'(c-echo-syntactic-information-p t)
'(column-number-mode t)
'(global-font-lock-mode t nil (font-lock))
'(require-final-newline t)
'(font-lock-global-modes t))
(custom-set-faces
'(font-lock-keyword-face ((((class color) (background light)) (:bold t
:foreground "blue3"))))
'(font-lock-constant-face ((((class color) (background light)) (:foreground
"aquamarine4"))))
'(vhdl-font-lock-control-signal-face ((((class color) (background light))
(:italic t :foreground "Blue"))))
'(font-lock-type-face ((((class color) (background light)) (:bold t
:foreground "sea green"))))
'(font-lock-variable-name-face ((((class color) (background light))
(:foreground "Darkorchid1"))))
'(font-lock-function-name-face ((((class color) (background light))
(:foreground "slategray4" :background "yellow1"))))
'(font-lock-builtin-face ((((class color) (background light)) (:foreground
"cornflower blue")))))
;; =================================================================
;; EMACS general look and feel
;; =================================================================
(if (eq window-system 'w32) ;; Windows NT/9x
(progn
;; Set the icon and frame titles %f file name, %b buffer name
(setq frame-title-format "%b")
(setq icon-title-format "%b")
(global-set-key [f1] 'replace-string)
(global-set-key [f2] 'shell)
(global-set-key [f3] 'comment-region)
(global-set-key [f4] 'goto-line)
(global-set-key [f5] 'undo)
(global-set-key [f6] 'find-file-other-frame)
(global-set-key [f7] 'switch-to-buffer-other-frame)
(global-set-key [f8] 'switch-to-buffer)
(global-set-key [f9] 'split-window-vertically)
(global-set-key [f10] 'enlarge-window)
(global-set-key [f11] 'shrink-window)
(global-set-key [f12] 'byte-compile-file)
;; Load gnuserv.
;; Doesn't work with 20.3.6.1.1
; (require 'gnuserv)
;(gnuserv-start)
; (setq gnuserv-frame (selected-frame))
))
;; Use bak for backup file name
(defun make-backup-file-name (file)
(concat file ".bak"))
(defun backup-file-name-p (file)
(string-match "\\.bak$" file))
;; set up for CC mode
(setq auto-mode-alist
(append '(("\\.c$" . c++-mode) ; to edit C code
("\\.h$" . c++-mode) ; to edit C++ code
("\\.cpp$" . c++-mode) ; to edit C++ code
("\\.cxx$" . c++-mode) ; to edit C++ code
("\\.hxx$" . c++-mode) ; to edit C++ code
("\\.C$" . c++-mode) ; to edit C++ code
("\\.cc$" . c++-mode) ; to edit C++ code
("\\.hh$" . c++-mode) ; to edit C++ code
("\\.exe" . hexl-mode)
("\\.obj" . hexl-mode)
("\\.class" . hexl-mode)
) auto-mode-alist))
(defun my-c-mode-common-hook ()
;; use auto newline and hungry delete
(c-toggle-auto-hungry-state 1)
(c-set-style "BSD")
)
(add-hook 'c-mode-common-hook
(function (lambda () (setq c-basic-offset 2))))
;; set up shell mode
;; set up /q arg out mode hook because we need it before shell command
;;(setq explicit-cmdproxy.exe-args '("/q")) ;; suppresses command echo in
shells
(defun shell-mode-setup ()
"Hook for setting up shell mode."
(local-set-key "\C-ct" 'dirtrack-toggle)
(local-set-key "\C-cs" 'shell-resync-dirs)
;;(setq shell-dirstack-query "pwd")
)
;;set up for man page reading with woman (without man)
;;(autoload 'woman "woman"
;; "Decode and browse a UN*X man page" t)
;;(autoload 'woman-find-file "woman"
;; "Find, decode and browse a specific UN*X man-page file" t)
;-----------------------
; JDE
;----------------------
(setq load-path
(nconc
'("~/emacs\emacs-20.5\site-lisp\jde-2.1.6b6/lisp")
load-path))
(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 binary-process-input t)
; (setq shell-file-name "bash")
; (setq explicit-shell-file-name shell-file-name)
; (setenv "SHELL" shell-file-name)
; (setq explicit-sh-args '("-login" "-i"))
; (setq w32-quote-process-args ?\") ;; Use Cygnus quoting rules.
;; Configure Emacs to use the default browser on your system
;; to display the JDE documentation.
(defvar shell-execute-helper "shelex.exe")
(defun shell-execute-url (url &optional new-window)
"Invoke the shell-execute-helper program to call ShellExecute and
launch
or re-direct a web browser on the specified url."
(interactive "sURL: ")
(call-process shell-execute-helper nil nil nil url))
(setq browse-url-browser-function 'shell-execute-url)
