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

Allow more than one space before the |.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9bbeee66b27a36e8c02c6de1f5b0ac1af326a027..b80d9ac90afa5528adf37fd9fdd9be8076db9b44 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 bcf86a4b169d5d4fed98506a89110ca6699c8099..70704dc4d5e537fb626d3731e5028c039b35cef7 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)