From 8f4ca9a5e45f8ac3e52d23e3ef1fdcc0d084a7fa Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 19 Sep 2000 14:55:58 +0000 Subject: [PATCH] (change-log-font-lock-keywords): Match names more exactly for the case that font-lock-constant-face is underlined. --- lisp/ChangeLog | 8 +++++++- lisp/add-log.el | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e4eac89b166..5598ff181f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2000-09-19 Gerd Moellmann + + * 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 * 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 f2b93b8c047..0d253614945 100644 --- 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))) ;; -- 2.39.2