Mercurial > emacs
comparison lisp/add-log.el @ 31720:601145997e91
(change-log-font-lock-keywords): Match names
more exactly for the case that font-lock-constant-face is
underlined.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 19 Sep 2000 14:53:31 +0000 |
parents | 3aa7c156087a |
children | 7e8ab579609b |
comparison
equal
deleted
inserted
replaced
31719:7071e0a246ed | 31720:601145997e91 |
---|---|
150 '(;; | 150 '(;; |
151 ;; Date lines, new and old styles. | 151 ;; Date lines, new and old styles. |
152 ("^\\sw.........[0-9:+ ]*" | 152 ("^\\sw.........[0-9:+ ]*" |
153 (0 font-lock-string-face) | 153 (0 font-lock-string-face) |
154 ;; Name and e-mail; some people put e-mail in parens, not angles. | 154 ;; Name and e-mail; some people put e-mail in parens, not angles. |
155 ("\\([^<(]+\\)[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil | 155 ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil |
156 (1 font-lock-constant-face) | 156 (1 font-lock-constant-face) |
157 (2 font-lock-variable-name-face))) | 157 (2 font-lock-variable-name-face))) |
158 ;; | 158 ;; |
159 ;; File names. | 159 ;; File names. |
160 ("^\t\\* \\([^ ,:([\n]+\\)" | 160 ("^\t\\* \\([^ ,:([\n]+\\)" |