(vc-bzr-dir-extra-headers): New function.

(vc-bzr-dir-printer): Rename from vc-bzr-status-printer.

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 2fa1ee2509b6587f0ee0be754371a5e9a85e2b42..efa9fc9ef9e325d72e5f66f16def4f613dfd0580 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -585,10 +585,10 @@ stream.  Standard error output is discarded."
             (:conc-name vc-bzr-extra-fileinfo->))
   extra-name)         ;; original name for rename targets, new name for
 
-(defun vc-bzr-status-printer (info)
+(defun vc-bzr-dir-printer (info)
   "Pretty-printer for the vc-dir-fileinfo structure."
   (let ((extra (vc-dir-fileinfo->extra info)))
-    (vc-default-status-printer 'Bzr info)
+    (vc-default-dir-printer 'Bzr info)
     (when extra
       (insert (propertize
               (format "   (renamed from %s)"
@@ -664,6 +664,19 @@ stream.  Standard error output is discarded."
   (apply 'vc-bzr-command "status" (current-buffer) 'async dir "-v" "-S" files)
   (vc-exec-after
    `(vc-bzr-after-dir-status (quote ,update-function))))
+
+(defun vc-bzr-dir-extra-headers (dir)
+  (let ((str (with-temp-buffer
+              (vc-bzr-command "info" t 0 dir)
+              (buffer-string))))
+    (concat
+     (propertize "Parent branch: " 'face 'font-lock-type-face)
+     (propertize 
+      (if (string-match "parent branch: \\(.+\\)$" str)
+         (match-string 1 str)
+       "None")
+       'face 'font-lock-variable-name-face))))
+
 ;;; Revision completion
 
 (defun vc-bzr-revision-completion-table (files)