There is a problem or two with XEmacs and JDE-2.2.5. Apparently the new version includes jde-java-font-lock.el which in turn presumes you also have font-lock-add-keywords in your font-lock package. Apparently this is built-in to Emacs, but not XEmacs. The following may be a partial solution: visit: http://www.andersl.com/emacs/cwarn.html Here, Anders writes: ---------------------------------------------- XEmacs The font-lock package of XEmacs is a bit outdated compared to the one that comes with GNU Emacs. In particular the font-lock-add-keywords function is missing. Since the operation of this package rely on this function it can't run under a standard XEmacs. Fortunately, I have a quick fix for this: xemacs-font-lock-fix.el . ---------------------------------------------- I loaded Anders' fix, and it seems to be looking for font-lock-keywords-alist. I assume this is a lisp-list of keywords plus what font to display them in. Is this correct? Can some knowledgable lisp hacker offer an example of a good 'keywords-alist'? Many thanks from the XEmacs/JDE fans, and keep up the great work, Paul. -Ray ---------------------------------------------- Signaling: (void-variable font-lock-keywords-alist) (assq major-mode font-lock-keywords-alist) ) (setq cell (assq major-mode font-lock-keywords-alist)) ) (if (setq cell (assq major-mode font-lock-keywords-alist)) (setcdr cell (append ... ...)) (push (list major-mode spec) font-lock-keywords-alist)) ) (let ((spec ...) cell) (if (setq cell ...) (setcdr cell ...) (push ... font-lock-keywords-alist))) ) (cond (major-mode (let ... ...)) (font-lock-mode (if ... ... ...))) ) font-lock-add-keywords(java-mode (("\\<\\(abstract\\|const\\|final\\|native\\|p\\(?:r\\(?:ivate\\|otected\\)\\|ublic\\)\\|s\\(?:tatic\\|ynchronized\\)\\|transient\\|volatile\\)\\>" . font-lock-builtin-face) ("\\b\\(0[xX][0-9a-fA-F]+[lL]?\\|[0-9]+\\.?[0-9]*\\([eE][-+]?[0-9]+\\)?\\([lL]\\|[fF]\\|[dD]\\)?\\)\\b" . jde-java-font-lock-number-face) ("\\b\\(\\.[0-9]+\\([eE][-+]?[0-9]+\\)?\\([lL]\\|[fF]\\|[dD]\\)?\\)\\b" . jde-java-font-lock-number-face) ("\\b[A-Z_]+[A-Z0-9_]*\\b" . font-lock-constant-face) ("`\\(.*\\)'" 1 font-lock-constant-face prepend) ("@\\(deprecated\\|since\\|serial\\|serialData\\|serialField\\|throws\\)\\>" 1 font-lock-constant-face prepend) ("{@\\(docRoot\\)}" 1 font-lock-constant-face prepend) ("{@\\(link\\)\\>\\s-+\\(.*\\)\\s-*}" (1 font-lock-constant-face prepend) (2 jde-java-font-lock-link-face prepend)) ("<[Aa]\\s-+[Hh][Rr][Ee][Ff][^>]*>\\([^>]+\\)</[Aa]>" 1 jde-java-font-lock-link-face t) ("<[Ss][Tt][Rr][Oo][Nn][Gg]>\\([^<]*\\)</[Ss][Tt][Rr][Oo][Nn][Gg]>" 1 jde-java-font-lock-bold-face t) ("<[Bb]>\\([^<]*\\)</[Bb]>" 1 jde-java-font-lock-bold-face t) ("<[Ii]>\\([^<]*\\)</[Ii]>" 1 jde-java-font-lock-italic-face t) ("<[Uu]>\\([^<]*\\)</[Uu]>" 1 jde-java-font-lock-underline-face t) ("<[Cc][Oo][Dd][Ee]>\\([^<]*\\)</[Cc][Oo][Dd][Ee]>" 1 jde-java-font-lock-code-face t) ("<[Pp][Rr][Ee]>\\([^<]*\\)</[Pp][Rr][Ee]>" 1 jde-java-font-lock-pre-face t))) load-internal("jde-java-font-lock" nil t nil nil nil) load("jde-java-font-lock" nil t nil) require(jde-java-font-lock) load-internal("jde" nil t nil nil nil) load("jde" nil t nil) require(jde) load-internal("~/.emacs" t t t nil nil) load("~/.emacs" t t t) load-user-init-file("") load-init-file() command-line() normal-top-level() -- [EMAIL PROTECTED] 512-436-1346 The price of liberty is eternal vigilance.
