From: Dave Love <fx@gnu.org>
Date: Tue, 8 Sep 1998 12:55:10 +0000 (+0000)
Subject: (change-log-font-lock-keywords): Do parenthesized
X-Git-Tag: emacs-20.4~1734
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97a3278b57a1f461b4e98f8aed6bb11dee96ddcb;p=emacs.git

(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 --git a/lisp/add-log.el b/lisp/add-log.el
index 287ff094ae8..63a758dd2ce 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -116,17 +116,22 @@ this variable."
     ;; 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)))
     ;;