Mercurial > emacs
changeset 56250:b7af6a88f099
(change-log-font-lock-keywords): Support
Common Lisp function names `(setf symbol)'.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Fri, 25 Jun 2004 14:45:00 +0000 |
| parents | b071073897ad |
| children | 651f09f1cac0 |
| files | lisp/ChangeLog lisp/add-log.el |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jun 25 13:03:22 2004 +0000 +++ b/lisp/ChangeLog Fri Jun 25 14:45:00 2004 +0000 @@ -1,3 +1,8 @@ +2004-06-25 Sam Steingold <sds@gnu.org> + + * add-log.el (change-log-font-lock-keywords): Support Common Lisp + function names `(setf symbol)'. + 2004-06-24 Richard M. Stallman <rms@gnu.org> * replace.el (query-replace-read-args): Swallow space after \,SYMBOL.
--- a/lisp/add-log.el Fri Jun 25 13:03:22 2004 +0000 +++ b/lisp/add-log.el Fri Jun 25 14:45:00 2004 +0000 @@ -230,13 +230,16 @@ ;; Possibly further names in a list: ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) ;; Possibly a parenthesized list of names: - ("\\= (\\([^) ,\n]+\\)" nil nil (1 'change-log-list-face)) - ("\\=, *\\([^) ,\n]+\\)" nil nil (1 'change-log-list-face))) + ("\\= (\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" + nil nil (1 'change-log-list-face)) + ("\\=, *\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" + nil nil (1 'change-log-list-face))) ;; ;; Function or variable names. - ("^\t(\\([^) ,\n]+\\)" + ("^\t(\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" (1 'change-log-list-face) - ("\\=, *\\([^) ,\n]+\\)" nil nil (1 'change-log-list-face))) + ("\\=, *\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil + (1 'change-log-list-face))) ;; ;; Conditionals. ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals-face))