Mercurial > hg > xemacs-beta
changeset 5194:77907bd57d25
Add missing CL style fontification.
lisp/ChangeLog addition:
2010-04-07 Didier Verna <didier@xemacs.org>
* font-lock.el (lisp-font-lock-keywords-2): Add missing CL style
lambda list constructs (&key etc.).
* lisp-mode.el (lisp-function-and-type-regexp): Recognize defun*
as well as defun.
| author | Didier Verna <didier@xemacs.org> |
|---|---|
| date | Wed, 07 Apr 2010 14:38:41 +0200 |
| parents | 41ac827cb71b |
| children | fa5d6416887f |
| files | lisp/ChangeLog lisp/font-lock.el lisp/lisp-mode.el |
| diffstat | 3 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 06 23:29:35 2010 -0500 +++ b/lisp/ChangeLog Wed Apr 07 14:38:41 2010 +0200 @@ -1,3 +1,10 @@ +2010-04-07 Didier Verna <didier@xemacs.org> + + * font-lock.el (lisp-font-lock-keywords-2): Add missing CL style + lambda list constructs (&key etc.). + * lisp-mode.el (lisp-function-and-type-regexp): Recognize defun* + as well as defun. + 2010-04-02 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-char-unicode-data):
--- a/lisp/font-lock.el Tue Apr 06 23:29:35 2010 -0500 +++ b/lisp/font-lock.el Wed Apr 07 14:38:41 2010 +0200 @@ -2259,7 +2259,9 @@ '("\\<:\\sw+\\>" 0 font-lock-reference-face prepend) ;; ;; ELisp and CLisp `&' keywords as types. - '("\\<\\&\\(optional\\|rest\\|whole\\)\\>" . font-lock-type-face) + '("\\<\\&\\(\ +optional\\|rest\\|body\\|whole\\|key\\|allow-other-keys\\|aux\\|environment\ +\\)\\>" . font-lock-type-face) )) "Gaudy level highlighting for Lisp modes.")
--- a/lisp/lisp-mode.el Tue Apr 06 23:29:35 2010 -0500 +++ b/lisp/lisp-mode.el Wed Apr 07 14:38:41 2010 +0200 @@ -699,7 +699,7 @@ (defvar lisp-function-and-type-regexp (concat "def\\(" ;; def but not define-. - "\\(un\\|advice\\|alias\\|macro\\*?\\|setf\\|subst\\*?\\|" + "\\(un\\*?\\|advice\\|alias\\|macro\\*?\\|setf\\|subst\\*?\\|" "-edebug-spec\\|" ;; CLOS "method\\|generic\\|"