232 |
|
|
233 |
(defvar change-log-font-lock-keywords |
(defvar change-log-font-lock-keywords |
234 |
'(;; |
'(;; |
235 |
;; Date lines, new and old styles. |
;; Date lines, new (2000-01-01) and old (Sat Jan 1 00:00:00 2000) styles. |
236 |
("^\\sw.........[0-9:+ ]*" |
;; Fixme: this regepx is just an approximate one and may match |
237 |
(0 'change-log-date) |
;; wrongly with a non-date line existing as a random note. In |
238 |
|
;; addition, using any kind of fixed setting like this doesn't |
239 |
|
;; work if a user customizes add-log-time-format. |
240 |
|
("^[0-9-]+ +\\|^\\(Sun\\|Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\) [A-z][a-z][a-z] [0-9:+ ]+" |
241 |
|
(0 'change-log-date-face) |
242 |
;; Name and e-mail; some people put e-mail in parens, not angles. |
;; Name and e-mail; some people put e-mail in parens, not angles. |
243 |
("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil |
("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil |
244 |
(1 'change-log-name) |
(1 'change-log-name) |