From: Simon Marshall <simon@gnu.org>
Date: Wed, 23 Oct 1996 09:16:54 +0000 (+0000)
Subject: Tweak change-log-font-lock-keywords
X-Git-Tag: emacs-20.1~3494
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5572c1d1e97467801fe4f3435a20f3b6ba93f344;p=emacs.git

Tweak change-log-font-lock-keywords
---

diff --git a/lisp/add-log.el b/lisp/add-log.el
index f4427182e61..45d1893e0c0 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -47,9 +47,28 @@ This defaults to the value returned by the `user-full-name' function.")
 This defaults to the value of `user-mail-address'.")
 
 (defvar change-log-font-lock-keywords
-  '(("^[12].+" . font-lock-function-name-face)	; Date line.
-    ("^\t\\* \\([^ :\n]+\\)" 1 font-lock-comment-face)	; File name.
-    ("(\\([^)\n]+\\)):" 1 font-lock-keyword-face))	; Function name.
+  '(;;
+    ;; Date lines, new and old styles.
+    ("^\\sw........."
+     (0 font-lock-string-face)
+     ("[A-Z][^\n<]+" nil nil (0 font-lock-reference-face)))
+    ;;
+    ;; File names.
+    ("^\t\\* \\([^ ,:([\n]+\\)"
+     (1 font-lock-function-name-face)
+     ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face)))
+    ;;
+    ;; Function or variable names.
+    ("(\\([^ ,:\n]+\\)"
+     (1 font-lock-keyword-face)
+     ("\\=, \\([^ ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
+    ;;
+    ;; Conditionals.
+    ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 font-lock-variable-name-face))
+    ;;
+    ;; Acknowledgments.
+    ("^\t\\(From\\|Reported by\\)" 1 font-lock-comment-face)
+    )
   "Additional expressions to highlight in Change Log mode.")
 
 (defvar change-log-mode-map nil