From: Sam Steingold <sds@gnu.org>
Date: Fri, 25 Jun 2004 14:45:00 +0000 (+0000)
Subject: (change-log-font-lock-keywords): Support
X-Git-Tag: ttn-vms-21-2-B4~5631
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc071f64e5a169e5dbcf7f05509a8bfac607f639;p=emacs.git

(change-log-font-lock-keywords): Support
Common Lisp function names `(setf symbol)'.
---

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))