(change-log-font-lock-keywords): Match names

more exactly for the case that font-lock-constant-face is
underlined.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4eac89b16658193cb8729971fa260c009f64880..5598ff181f3b0ac4f8b3ce9549f779d77eadb7bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-09-19  Gerd Moellmann  <gerd@gnu.org>
+
+       * add-log.el (change-log-font-lock-keywords): Match names
+       more exactly for the case that font-lock-constant-face is
+       underlined.
+
 2000-09-19  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el (vc-revert-buffer): Set vc-checkout-time correctly.
@@ -15,7 +21,7 @@
        * gnus/nnultimate.el, gnus/nnwarchive.el, gnus/qp.el,
        * gnus/rfc1843.el, gnus/rfc2045.el, gnus/rfc2047.el,
        * gnus/rfc2104.el, gnus/rfc2231.el, gnus/time-date.el,
-       * gnus/utf7.el, gnsu/uudecode.el, gnus/webmail.el: New files.
+       * gnus/utf7.el, gnus/uudecode.el, gnus/webmail.el: New files.
 
        * startup.el (fancy-splash-text): New variable.
        (fancy-splash-delay, fancy-splash-image): New user-options.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index f2b93b8c0472d38e08a2b246609b61db289ccacc..0d253614945d16758a5288f334c02a1a12245b30 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -152,7 +152,7 @@ Note: The search is conducted only within 10%, at the beginning of the file."
     ("^\\sw.........[0-9:+ ]*"
      (0 font-lock-string-face)
      ;; Name and e-mail; some people put e-mail in parens, not angles.
-     ("\\([^<(]+\\)[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
+     ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
       (1 font-lock-constant-face)
       (2 font-lock-variable-name-face)))
     ;;