procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-hg-log-view-mode): Handle the user field better.

Browse source
This commit is contained in:
Dan Nicolaescu 2008-01-07 06:06:25 +00:00
parent 6e498a9766
commit 1030ad5e11
2 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-01-07 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-log-view-mode): Handle the user field better.
2008-01-07 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gud-gdb-command-name): Explain

11
lisp/vc-hg.el
View file

@ -256,15 +256,18 @@
(set (make-local-variable 'log-view-font-lock-keywords)
(append
log-view-font-lock-keywords
;; Handle the case:
;; user: foo@bar
'(("^user:[ \t]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)"
(1 'change-log-email))
'(
;; Handle the case:
;; user: FirstName LastName <foo@bar>
("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]"
(1 'change-log-name)
(2 'change-log-email))
;; Handle the cases:
;; user: foo@bar
;; and
;; user: foo
("^user:[ \t]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)"
(1 'change-log-email))
("^date: \\(.+\\)" (1 'change-log-date))
("^summary:[ \t]+\\(.+\\)" (1 'log-view-message))))))