Well, I've figured out it's my fault, but I'm not sure where yet....I
have a crufty old .emacs which I thought I'd mostly cleared out (a few
months ago, I still had Emacs 18 conditionals in there...). Now that my
.emacs looks like that below, I have C-c C-v j working. Now to figure
out what is messing it up....
;;; -*- emacs-lisp -*-
;;;
;;; I've finally removed a lot of the cruft that had settled into this
;;; file and it's partner, emacs-init.el. The latter originated back
;;; with Emacs 18 under VMS running on a VAX 11/780 where I needed to
;;; get as much out of my .emacs as possible in order speed startup.
;;; Since I no longer run Emacs 18, 19, or even 20 anywhere, I"ve tried
;;; to eliminate all the code for those version, and speed (at least
;;; compared to the VAX 11/780 days) is not an issue.
;;;
;;; Anything which is part of load-path at start treats subdirs.el
;;; special and does this automatically, but it doesn't happen when you
;;; add to load-path here. :-(
(let ((directory-list '("~/tools/share/emacs/site-lisp"))
default-directory)
(while directory-list
(setq default-directory (expand-file-name (car directory-list))
directory-list (cdr directory-list))
(cond ((file-exists-p default-directory)
(add-to-list 'load-path default-directory)
(load (expand-file-name "subdirs.el") t t t)))))
(add-to-list 'Info-default-directory-list (expand-file-name "~/tools/info"))
;;;
;;; ---- Programming Modes ----
;;;
;; I really want an eval-before-load hook to avoid loading this until
;; I actually want to do Java.
;;;(require 'overlay-fix)
(require 'jde)
;;;(autoload 'jde-mode "jde" "JDE mode." t)
(setq semantic-load-turn-useful-things-on t
jde-check-version-flag nil)
;; (setq semantic-idle-scheduler-max-buffer-size 1024)
(load "cedet")
;; (add-to-list 'auto-mode-alist
;; '("\\.java\\'" . jde-mode))
(set-default 'indent-tabs-mode nil)
(defun rbr-jde-mode ()
(setq jde-db-read-app-args t
c-basic-offset 4
;; Replace TAB with equivalent spaces
indent-tabs-mode nil))
(add-hook 'jde-mode-hook 'rbr-jde-mode)
(add-hook 'java-mode-hook
'(lambda nil
(define-key java-mode-map "\eg" 'goto-line)
(setq c-basic-offset 4
indent-tabs-mode nil) ; Replace TAB with equivalent spaces
(add-hook 'local-write-file-hooks 'delete-trailing-whitespace)))
(font-lock-add-keywords
'jde-mode
'(("/[*]\\s-*\\<\\(\\(FIXME\\|WARNING\\):[^*]*\\)\\*?" 1
font-lock-warning-face t)))
(font-lock-add-keywords
'jde-mode
'(("//\\s-*\\<\\(\\(FIXME\\|WARNING\\):[^\n]*\\)\n" 1 font-lock-warning-face
t)))
;;;
;;; Keep defcustom stuff separate and let it override the above.
;;;
(setq custom-file (expand-file-name "~/.custom.el"))
(if (file-exists-p custom-file)
(load-file custom-file))
;;;
;;; Local Variables:
;;; comment-column: 48
;;; End:
;;;
--
PGP Key ID: 66 BC 3B CD
Roland B. Roberts, PhD RL Enterprises
[EMAIL PROTECTED] 6818 Madeline Court
[EMAIL PROTECTED] Brooklyn, NY 11220
