[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r99380: working version of vc-bzr-rev
From: |
Mark A. Hershberger |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r99380: working version of vc-bzr-revision-table |
Date: |
Mon, 25 Jan 2010 00:02:10 -0500 |
User-agent: |
Bazaar (2.0.2) |
------------------------------------------------------------
revno: 99380
committer: Mark A. Hershberger <address@hidden>
branch nick: trunk
timestamp: Mon 2010-01-25 00:02:10 -0500
message:
working version of vc-bzr-revision-table
modified:
lisp/ChangeLog
lisp/vc-bzr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-01-25 04:52:26 +0000
+++ b/lisp/ChangeLog 2010-01-25 05:02:10 +0000
@@ -1,6 +1,9 @@
2010-01-24 Mark A. Hershberger <address@hidden>
- * 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 <address@hidden>
=== modified file 'lisp/vc-bzr.el'
--- a/lisp/vc-bzr.el 2010-01-13 16:28:32 +0000
+++ b/lisp/vc-bzr.el 2010-01-25 05:02:10 +0000
@@ -898,6 +898,19 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r99380: working version of vc-bzr-revision-table,
Mark A. Hershberger <=