Mercurial > emacs

comparison lisp/vc-hg.el @ 81572:0991efe3cafa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-hg.el (vc-hg-log-view-mode): Fix last change. * log-view.el (log-view-mode-menu): New menu.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 23 Jun 2007 03:06:21 +0000
parents 0e2a83705e5f
children cea1e05b3c83
comparison
equal deleted inserted replaced
81571:47eaf2354cb3 81572:0991efe3cafa
140 (set (make-local-variable 'log-view-file-re) "^File:[ \t]+\\(.+\\)") 140 (set (make-local-variable 'log-view-file-re) "^File:[ \t]+\\(.+\\)")
141 (set (make-local-variable 'log-view-message-re) 141 (set (make-local-variable 'log-view-message-re)
142 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)") 142 "^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)")
143 (set (make-local-variable 'log-view-font-lock-keywords) 143 (set (make-local-variable 'log-view-font-lock-keywords)
144 (append 144 (append
145 log-view-font-lock-keywords 145 (copy-alist log-view-font-lock-keywords)
146 ;; Handle the case: 146 ;; Handle the case:
147 ;; user: foo@bar 147 ;; user: foo@bar
148 '(("^user:[ \t]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)" 148 '(("^user:[ \t]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)"
149 (1 'change-log-email)) 149 (1 'change-log-email))
150 ;; Handle the case: 150 ;; Handle the case:
151 ;; user: FirstName LastName <foo@bar> 151 ;; user: FirstName LastName <foo@bar>
152 ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" 152 ("^user:[ \t]+\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]"
153 (1 'change-log-name) 153 (1 'change-log-name)
154 (2 'change-log-email)) 154 (2 'change-log-email))
155 ("^date: \\(.+\\)" (1 'change-log-date)) 155 ("^date: \\(.+\\)" (1 'change-log-date))
156 ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message)))))) 156 ("^summary:[ \t]+\\(.+\\)" (1 'log-view-message)))))))
157 157
158 (defun vc-hg-diff (file &optional oldvers newvers buffer) 158 (defun vc-hg-diff (file &optional oldvers newvers buffer)
159 "Get a difference report using hg between two versions of FILE." 159 "Get a difference report using hg between two versions of FILE."
160 (let ((working (vc-workfile-version file))) 160 (let ((working (vc-workfile-version file)))
161 (if (and (equal oldvers working) (not newvers)) 161 (if (and (equal oldvers working) (not newvers))