From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Christian Faulhammer Newsgroups: gmane.emacs.devel Subject: Re: Status of VC Bazaar support? Date: Sat, 1 Nov 2008 14:24:30 +0100 Message-ID: <20081101142430.0acf8a5a@terra.solaris> References: <87ej48ucxp.fsf@cyd.mit.edu> <20081025005018.3ecdd3ad@terra.solaris> <200810270738.m9R7cHO7020963@mothra.ics.uci.edu> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="Sig_/FVQHg7vx9cBt6Taw19uJFmD"; protocol="application/pgp-signature"; micalg=PGP-SHA1 X-Trace: ger.gmane.org 1225545943 26469 80.91.229.12 (1 Nov 2008 13:25:43 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 1 Nov 2008 13:25:43 +0000 (UTC) Cc: Chong Yidong , emacs-devel@gnu.org To: Dan Nicolaescu Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Nov 01 14:26:43 2008 connect(): Connection refused Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1KwGV1-0000xW-DC for ged-emacs-devel@m.gmane.org; Sat, 01 Nov 2008 14:26:43 +0100 Original-Received: from localhost ([127.0.0.1]:59712 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KwGTu-0006ba-2C for ged-emacs-devel@m.gmane.org; Sat, 01 Nov 2008 09:25:34 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KwGTm-0006b5-W8 for emacs-devel@gnu.org; Sat, 01 Nov 2008 09:25:27 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KwGTl-0006ab-C9 for emacs-devel@gnu.org; Sat, 01 Nov 2008 09:25:26 -0400 Original-Received: from [199.232.76.173] (port=37047 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KwGTl-0006aX-4Z for emacs-devel@gnu.org; Sat, 01 Nov 2008 09:25:25 -0400 Original-Received: from mo-p05-ob.rzone.de ([81.169.146.180]:45946) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KwGTk-0004WU-UY for emacs-devel@gnu.org; Sat, 01 Nov 2008 09:25:25 -0400 X-RZG-CLASS-ID: mo05 X-RZG-AUTH: :K2kKYU+nW/MMMlTokcN5Yot1/Bj/FTl+WviP6RIJci0HRMpbh/x+X6ShOQjVOj0+68LVLw4HXg== Original-Received: from terra.solaris (p54AE3E33.dip.t-dialin.net [84.174.62.51]) by post.webmailer.de (fruni mo27) (RZmta 17.14) with ESMTP id k00248kA1D9VBb ; Sat, 1 Nov 2008 14:25:22 +0100 (MET) (envelope-from: ) In-Reply-To: <200810270738.m9R7cHO7020963@mothra.ics.uci.edu> X-Mailer: Claws Mail 3.6.1 (GTK+ 2.12.11; i686-pc-linux-gnu) X-detected-operating-system: by monty-python.gnu.org: Solaris 10 (beta) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:105234 Archived-At: --Sig_/FVQHg7vx9cBt6Taw19uJFmD Content-Type: multipart/mixed; boundary="MP_/zqjxLKAwkdSPhwo1mRMkBvN" --MP_/zqjxLKAwkdSPhwo1mRMkBvN Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Hi, Dan Nicolaescu : > 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 --=20 Christian Faulhammer, Gentoo Lisp project , #gentoo-lisp on FreeNode --MP_/zqjxLKAwkdSPhwo1mRMkBvN Content-Type: text/x-patch; name=bzr-headers.patch Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename=bzr-headers.patch --- /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" fi= les) (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=20 + (if (string-match "parent branch: \\(.+\\)$" str) + (match-string 1 str) + "None") + 'face 'font-lock-variable-name-face)))) ;;; Revision completion =20 (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)) =20 +(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 --MP_/zqjxLKAwkdSPhwo1mRMkBvN-- --Sig_/FVQHg7vx9cBt6Taw19uJFmD Content-Type: application/pgp-signature; name=signature.asc Content-Disposition: attachment; filename=signature.asc -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.9 (GNU/Linux) iEYEARECAAYFAkkMWJQACgkQNQqtfCuFnePsvQCghSKrA52Kc9lMT+IDKqfj7GFh TjQAmwURESeFZwIS/89xXNG23f19LM/U =dnak -----END PGP SIGNATURE----- --Sig_/FVQHg7vx9cBt6Taw19uJFmD--