* lisp/vc/vc-bzr.el (vc-bzr-after-dir-status):

Don't get confused by a bzrlib version mismatch warning.

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 811f9e80b0c9f3d47860d1709cb8026dea399c90..9c52106fdb503cc1f1f2c3ddddc3fb3d6419b4cb 100644 (file)
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -954,6 +954,12 @@ stream.  Standard error output is discarded."
        (translated nil)
        (result nil))
       (goto-char (point-min))
+      ;; Skip a warning message that can occur in some bzr installations.
+      ;; vc-bzr-dir-extra-headers already reports it.
+      ;; Perhaps we should just discard stderr?
+      (and (looking-at "bzr: WARNING: bzrlib version doesn't match")
+           (re-search-forward "^bzr is version" nil t)
+           (forward-line 1))
       (while (not (eobp))
         ;; Bzr 2.3.0 added this if there are shelves.  (Bug#8170)
         (unless (looking-at "[0-9]+ shel\\(f\\|ves\\) exists?\\.")