Mercurial > emacs

comparison lisp/vc-hg.el @ 79725:4ceae4ec8fb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-hg-log-view-mode): Handle the user field better.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 07 Jan 2008 06:06:25 +0000
parents a566e6f181dc
children 8cc70128affa 107ccd98fa12
comparison
equal deleted inserted replaced
79724:1216df323631 79725:4ceae4ec8fb2
254 (set (make-local-variable 'log-view-message-re) 254 (set (make-local-variable 'log-view-message-re)
255 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)") 255 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)")
256 (set (make-local-variable 'log-view-font-lock-keywords) 256 (set (make-local-variable 'log-view-font-lock-keywords)
257 (append 257 (append
258 log-view-font-lock-keywords 258 log-view-font-lock-keywords
259 ;; Handle the case: 259 '(
260 ;; user: foo@bar
261 '(("^user:[ \t]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)"
262 (1 'change-log-email))
263 ;; Handle the case: 260 ;; Handle the case:
264 ;; user: FirstName LastName <foo@bar> 261 ;; user: FirstName LastName <foo@bar>
265 ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" 262 ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]"
266 (1 'change-log-name) 263 (1 'change-log-name)
267 (2 'change-log-email)) 264 (2 'change-log-email))
265 ;; Handle the cases:
266 ;; user: foo@bar
267 ;; and
268 ;; user: foo
269 ("^user:[ \t]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)"
270 (1 'change-log-email))
268 ("^date: \\(.+\\)" (1 'change-log-date)) 271 ("^date: \\(.+\\)" (1 'change-log-date))
269 ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message)))))) 272 ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message))))))
270 273
271 (defun vc-hg-diff (file &optional oldvers newvers buffer) 274 (defun vc-hg-diff (file &optional oldvers newvers buffer)
272 "Get a difference report using hg between two versions of FILE." 275 "Get a difference report using hg between two versions of FILE."