Mercurial > emacs

comparison lisp/vc-hg.el @ 87605:7ca7e531270c

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:10:11 +0000
parents 26665fb0f604
children 107ccd98fa12
comparison
equal deleted inserted replaced
87604:26665fb0f604 87605:7ca7e531270c
284 (set (make-local-variable 'log-view-message-re) 284 (set (make-local-variable 'log-view-message-re)
285 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)") 285 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)")
286 (set (make-local-variable 'log-view-font-lock-keywords) 286 (set (make-local-variable 'log-view-font-lock-keywords)
287 (append 287 (append
288 log-view-font-lock-keywords 288 log-view-font-lock-keywords
289 ;; Handle the case: 289 '(
290 ;; user: foo@bar
291 '(("^user:[ \t]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)"
292 (1 'change-log-email))
293 ;; Handle the case: 290 ;; Handle the case:
294 ;; user: FirstName LastName <foo@bar> 291 ;; user: FirstName LastName <foo@bar>
295 ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" 292 ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]"
296 (1 'change-log-name) 293 (1 'change-log-name)
297 (2 'change-log-email)) 294 (2 'change-log-email))
295 ;; Handle the cases:
296 ;; user: foo@bar
297 ;; and
298 ;; user: foo
299 ("^user:[ \t]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)"
300 (1 'change-log-email))
298 ("^date: \\(.+\\)" (1 'change-log-date)) 301 ("^date: \\(.+\\)" (1 'change-log-date))
299 ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message)))))) 302 ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message))))))
300 303
301 (defun vc-hg-diff (files &optional oldvers newvers buffer) 304 (defun vc-hg-diff (files &optional oldvers newvers buffer)
302 "Get a difference report using hg between two revisions of FILES." 305 "Get a difference report using hg between two revisions of FILES."