Mercurial > emacs
changeset 80582:7c7ae81f80df
(vc-hg-annotate-command): Allow white space before version number.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 17 May 2008 15:16:50 +0000 |
| parents | b301b9e46cd0 |
| children | 3299f73f467e |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu May 15 09:35:50 2008 +0000 +++ b/lisp/ChangeLog Sat May 17 15:16:50 2008 +0000 @@ -1,3 +1,8 @@ +2008-05-17 David Hull <david@snap.com> (tiny change) + + * vc-hg.el (vc-hg-annotate-command): Allow white space before + version number. + 2008-05-12 Simon Marshall <simon@gnu.org> * obsolete/fast-lock.el (fast-lock-cache-directories): Remove "."
--- a/lisp/vc-hg.el Thu May 15 09:35:50 2008 +0000 +++ b/lisp/vc-hg.el Sat May 17 15:16:50 2008 +0000 @@ -311,8 +311,8 @@ (vc-hg-command buffer 0 file "annotate" "-d" "-n" (if version (concat "-r" version))) (with-current-buffer buffer (goto-char (point-min)) - (re-search-forward "^[0-9]") - (delete-region (point-min) (1- (point))))) + (re-search-forward "^[ \t]*[0-9]") + (delete-region (point-min) (match-beginning 0)))) ;; The format for one line output by "hg annotate -d -n" looks like this: