(vc-bzr-annotate-extract-revision-at-line):

Allow more than one space before the |.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bbeee6..b80d9ac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-06-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * vc-bzr.el (vc-bzr-annotate-extract-revision-at-line):
+       Allow more than one space before the |.
+
        * textmodes/rst.el: Fix up docstring conventions.
        Move vars to before their first use.
        (rst-mode): Don't mess with font-lock-support-mode.

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index bcf86a4..70704dc 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -552,7 +552,7 @@ property containing author and date information."
 Return nil if current line isn't annotated."
   (save-excursion
     (beginning-of-line)
-    (if (looking-at " *\\([0-9.]+\\) | ")
+    (if (looking-at " *\\([0-9.]+\\) *| ")
         (match-string-no-properties 1))))
 
 (defun vc-bzr-command-discarding-stderr (command &rest args)