mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(change-log-font-lock-keywords): Do parenthesized

Browse Source 
stuff only after file names or at start of line.  Allow parens
around e-mail, as well as angles.
This commit is contained in:
Dave Love 1998-09-08 12:55:10 +00:00
parent 0d5dc4a5fa
commit 97a3278b57
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/add-log.el
View File

@ -116,17 +116,22 @@ this variable."
;; Date lines, new and old styles.
("^\\sw.........[0-9:+ ]*"
(0 font-lock-string-face)
("\\([^<]+\\)<\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)>" nil nil
;; Name and e-mail; some people put e-mail in parens, not angles.
("\\([^<(]+\\)[(<]\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
(1 font-lock-constant-face)
(2 font-lock-variable-name-face)))
;;
;; File names.
("^\t\\* \\([^ ,:([\n]+\\)"
(1 font-lock-function-name-face)
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face)))
;; Possibly further names in a list:
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face))
;; Possibly a parenthesized list of names:
("\\= (\\([^) ,:\n]+\\)" nil nil (1 font-lock-keyword-face))
("\\=, *\\([^) ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
;;
;; Function or variable names.
("(\\([^) ,:\n]+\\)"
("^\t(\\([^) ,:\n]+\\)"
(1 font-lock-keyword-face)
("\\=, *\\([^) ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
;;