From: Mark A. Hershberger <mhershberger@intrahealth.org>
Date: Mon, 25 Jan 2010 05:02:10 +0000 (-0500)
Subject: working version of vc-bzr-revision-table
X-Git-Tag: emacs-pretest-23.1.92~30^2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9de6d6fab83a48d3c97eecf92149d17eccb8fe1;p=emacs.git

working version of vc-bzr-revision-table
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b5d8f241ec..e3c34554afe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,9 @@
 2010-01-24  Mark A. Hershberger  <mah@everybody.org>
 
-	* progmodes/python.el: Replace reference to obsolete c-subward-mode.
+	* progmodes/python.el: Replace reference to obsolete
+	c-subward-mode.
+
+	* vc-bzr.el: (vc-bzr-revision-table) New function.
 
 2010-01-24  Dan Nicolaescu  <dann@ics.uci.edu>
 
diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index d04c783ca32..b3bbc272faa 100644
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -898,6 +898,19 @@ stream.  Standard error output is discarded."
   (interactive "e")
   (vc-dir-at-event e (popup-menu vc-bzr-shelve-menu-map e)))
 
+(defun vc-bzr-revision-table (files)
+  (let ((vc-bzr-revisions '())
+        (default-directory (file-name-directory (car files))))
+    (with-temp-buffer
+      (vc-bzr-command "log" t 0 files "--line")
+      (let ((start (point-min))
+            (loglines (buffer-substring-no-properties (point-min) (point-max))))
+        (while (string-match "^\\([0-9]+\\):" loglines)
+          (push (match-string 1 loglines) vc-bzr-revisions)
+          (setq start (+ start (match-end 0)))
+          (setq loglines (buffer-substring-no-properties start (point-max))))))
+    vc-bzr-revisions))
+
 ;;; Revision completion
 
 (eval-and-compile