# HG changeset patch # User Gerd Moellmann # Date 969375211 0 # Node ID 601145997e91049b8c3bc9eef7a485165f5c2b6e # Parent 7071e0a246ed04badc6ebb200de25bb48878801a (change-log-font-lock-keywords): Match names more exactly for the case that font-lock-constant-face is underlined. diff -r 7071e0a246ed -r 601145997e91 lisp/add-log.el --- a/lisp/add-log.el Tue Sep 19 14:01:10 2000 +0000 +++ b/lisp/add-log.el Tue Sep 19 14:53:31 2000 +0000 @@ -152,7 +152,7 @@ ("^\\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))) ;;