Commit d9de6d6f authored by Mark A. Hershberger's avatar Mark A. Hershberger
Browse files

working version of vc-bzr-revision-table

parent b1bb0a25
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>
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment