diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-09-19 14:55:58 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-09-19 14:55:58 +0000 |
| commit | 8f4ca9a5e45f8ac3e52d23e3ef1fdcc0d084a7fa (patch) | |
| tree | e9affc8f185609e24ee3c8ede8a647f89c9473ce | |
| parent | 289eaef9e1b0e0bfa7f2054518484764616add9b (diff) | |
| download | emacs-8f4ca9a5e45f8ac3e52d23e3ef1fdcc0d084a7fa.tar.gz | |
(change-log-font-lock-keywords): Match names
more exactly for the case that font-lock-constant-face is
underlined.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | 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 <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 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))) ;; |