# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1088174700 0
# Node ID b7af6a88f099f4098b9a6d20ca1ad19be5a34297
# Parent  b071073897adde69c9c63ed4b0a5de28bf87b8fa
(change-log-font-lock-keywords): Support
Common Lisp function names `(setf symbol)'.

diff -r b071073897ad -r b7af6a88f099 lisp/ChangeLog
--- 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.
diff -r b071073897ad -r b7af6a88f099 lisp/add-log.el
--- 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))