diff options
| author | Sam Steingold <sds@gnu.org> | 2004-06-25 14:45:00 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2004-06-25 14:45:00 +0000 |
| commit | bc071f64e5a169e5dbcf7f05509a8bfac607f639 (patch) | |
| tree | ac4f24dd91f31f33c86e6a0e7af60f26a069c7b1 /lisp | |
| parent | 94939b842d12a742ad6abf3c9adec8af7d8971f0 (diff) | |
| download | emacs-bc071f64e5a169e5dbcf7f05509a8bfac607f639.tar.gz emacs-bc071f64e5a169e5dbcf7f05509a8bfac607f639.tar.bz2 emacs-bc071f64e5a169e5dbcf7f05509a8bfac607f639.zip | |
(change-log-font-lock-keywords): Support
Common Lisp function names `(setf symbol)'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/add-log.el | 11 |
2 files changed, 12 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a387308ac9..ed392b3a20f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/add-log.el b/lisp/add-log.el index 3c29e8a465e..26faea2ddc3 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -230,13 +230,16 @@ Note: The search is conducted only within 10%, at the beginning of the file." ;; 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)) |