--- /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 21:26:20.000000000 +0100
@@ -664,6 +664,19 @@
   (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 "Branch root: " 'face 'font-lock-type-face)
+     (propertize
+		 (if (and (string-match "branch root: \\(.+\\)$" str) (string-match "\\." (match-string 1 str)))
+		     "Current directory"
+		   (match-string 1 str))
+       'face 'font-lock-variable-name-face))))
+
 ;;; Revision completion
 
 (defun vc-bzr-revision-completion-table (files)
@@ -723,5 +736,9 @@
   '(add-to-list 'vc-directory-exclusion-list vc-bzr-admin-dirname t))
 
 (provide 'vc-bzr)
+
+(defun vc-bzr--call (buffer command &rest args)
+  (apply 'process-file "bzr" nil buffer nil command args))
+
 ;; arch-tag: 8101bad8-4e92-4e7d-85ae-d8e08b4e7c06
 ;;; vc-bzr.el ends here