# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 846062214 0
# Node ID 82b0566ece2710acdbbd565943a9a43ee06a51a1
# Parent  31ffc80a329d7b76bbfad35c34acfe18ea1c8a98
Tweak change-log-font-lock-keywords

diff -r 31ffc80a329d -r 82b0566ece27 lisp/add-log.el
--- a/lisp/add-log.el	Tue Oct 22 17:34:26 1996 +0000
+++ b/lisp/add-log.el	Wed Oct 23 09:16:54 1996 +0000
@@ -47,9 +47,28 @@
 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