Re: Status of VC Bazaar support?

[Christian Faulhammer <opfer@gentoo.org>]

[-- Attachment #1.1: Type: text/plain, Size: 463 bytes --]

Hi,

Dan Nicolaescu <dann@ics.uci.edu>:
> To do that, implement a function called `vc-bzr-dir-extra-headers'.
> Look in the other vc-*.el files for examples how to do that.

I provided the wrong patch as I just noticed...Parent branch is the
more meaningful property compared to branch root.

V-Li

-- 
Christian Faulhammer, Gentoo Lisp project
<URL:http://www.gentoo.org/proj/en/lisp/>, #gentoo-lisp on FreeNode

<URL:http://www.faulhammer.org/>

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: bzr-headers.patch --]
[-- Type: text/x-patch; name=bzr-headers.patch, Size: 1201 bytes --]

--- /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

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 197 bytes --]