From 9f94054523715db2cb186ab1f2b1ea83f42f5ccd Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 17 May 2008 15:16:50 +0000 Subject: [PATCH] (vc-hg-annotate-command): Allow white space before version number. --- lisp/ChangeLog | 5 +++++ lisp/vc-hg.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ab6fb19c1ee..e4ea722702d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-05-17 David Hull (tiny change) + + * vc-hg.el (vc-hg-annotate-command): Allow white space before + version number. + 2008-05-12 Simon Marshall * obsolete/fast-lock.el (fast-lock-cache-directories): Remove "." diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 77a52611ca7..7bd54528a6e 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -311,8 +311,8 @@ Optional arg VERSION is a version to annotate from." (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: -- 2.39.5