diff options
| author | Mark A. Hershberger <mhershberger@intrahealth.org> | 2010-01-25 00:02:10 -0500 |
|---|---|---|
| committer | Mark A. Hershberger <mhershberger@intrahealth.org> | 2010-01-25 00:02:10 -0500 |
| commit | d9de6d6fab83a48d3c97eecf92149d17eccb8fe1 (patch) | |
| tree | 376f5c090e700c1464f0b4230a8aef1b16478ecd | |
| parent | b1bb0a2570b8a40017220097c40c6057cfe17efe (diff) | |
| download | emacs-d9de6d6fab83a48d3c97eecf92149d17eccb8fe1.tar.gz | |
working version of vc-bzr-revision-table
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc-bzr.el | 13 |
2 files changed, 17 insertions, 1 deletions
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 |