(change-log-font-lock-keywords): Support

Common Lisp function names `(setf symbol)'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a387308ac9832a9bc7ef1cae3ae45d243452ffd..ed392b3a20f7502aa2785663edeb4661c3985939 100644 (file)
--- 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 3c29e8a465ef65800767348f5683786f44529671..26faea2ddc347f21e26862f1b12090d8b49ef135 100644 (file)
--- 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))