From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 17 May 2008 15:16:50 +0000 (+0000)
Subject: (vc-hg-annotate-command): Allow white space before version number.
X-Git-Tag: emacs-pretest-22.2.90~126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f94054523715db2cb186ab1f2b1ea83f42f5ccd;p=emacs.git

(vc-hg-annotate-command): Allow white space before version number.
---

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 <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 "."
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: