--- /usr/portage/distfiles/cvs-src/emacs/lisp/vc-bzr.el	2008-10-12 19:57:10.000000000 +0200
+++ /usr/share/emacs/23.0.60/lisp/vc-bzr.el	2008-10-31 23:22:29.000000000 +0100
@@ -664,6 +664,18 @@
   (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-status-extra-headers (dir)
+  (let ((str (with-output-to-string
+               (with-current-buffer standard-output
+                 (vc-bzr--call '(t nil) "info")))))
+    (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)
@@ -722,6 +734,9 @@
 (eval-after-load "vc"
   '(add-to-list 'vc-directory-exclusion-list vc-bzr-admin-dirname t))
 
+(defun vc-bzr--call (buffer command &rest args)
+  (apply 'process-file "bzr" nil buffer nil command args))
+
 (provide 'vc-bzr)
 ;; arch-tag: 8101bad8-4e92-4e7d-85ae-d8e08b4e7c06
 ;;; vc-bzr.el ends here