# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 905259310 0
# Node ID c06f07cf6bba42d32b0efc4a9a1a9b72b5e85922
# Parent  f075bf0ae873f8837eff867aeac32166aff7b62d
(change-log-font-lock-keywords): Do parenthesized
stuff only after file names or at start of line.  Allow parens
around e-mail, as well as angles.

diff -r f075bf0ae873 -r c06f07cf6bba lisp/add-log.el
--- a/lisp/add-log.el	Tue Sep 08 12:47:39 1998 +0000
+++ b/lisp/add-log.el	Tue Sep 08 12:55:10 1998 +0000
@@ -116,17 +116,22 @@
     ;; Date lines, new and old styles.
     ("^\\sw.........[0-9:+ ]*"
      (0 font-lock-string-face)
-     ("\\([^<]+\\)<\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)>" nil nil
+     ;; Name and e-mail; some people put e-mail in parens, not angles.
+     ("\\([^<(]+\\)[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
       (1 font-lock-constant-face)
       (2 font-lock-variable-name-face)))
     ;;
     ;; File names.
     ("^\t\\* \\([^ ,:([\n]+\\)"
      (1 font-lock-function-name-face)
-     ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face)))
+     ;; Possibly further names in a list:
+     ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face))
+     ;; Possibly a parenthesized list of names:
+     ("\\= (\\([^) ,:\n]+\\)" nil nil (1 font-lock-keyword-face))
+     ("\\=, *\\([^) ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
     ;;
     ;; Function or variable names.
-    ("(\\([^) ,:\n]+\\)"
+    ("^\t(\\([^) ,:\n]+\\)"
      (1 font-lock-keyword-face)
      ("\\=, *\\([^) ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
     ;;