Commit 8228a275 authored by Mark A. Hershberger's avatar Mark A. Hershberger

add primative implementation of vc-svn-revision-table

parent 7bb8ed67
2010-02-05 Mark A. Hershberger <mah@everybody.org>
* vc-svn.el (vc-svn-revision-table): New function.
2010-02-05 Michael Albinus <michael.albinus@gmx.de>
* net/ange-ftp.el (ange-ftp-insert-directory):
......
......@@ -31,6 +31,10 @@
(eval-when-compile
(require 'vc))
;; Clear up the cache to force vc-call to check again and discover
;; new functions when we reload this file.
(put 'SVN 'vc-functions nil)
;;;
;;; Customization options
;;;
......@@ -722,6 +726,21 @@ information about FILENAME and return its status."
(beginning-of-line)
(if (looking-at vc-svn-annotate-re) (match-string 1))))
(defun vc-svn-revision-table (files)
(let ((vc-svn-revisions '()))
(with-current-buffer "*vc*"
(vc-svn-command nil 0 files "log" "-q")
(goto-char (point-min))
(forward-line)
(let ((start (point-min))
(loglines (buffer-substring-no-properties (point-min)
(point-max))))
(while (string-match "^r\\([0-9]+\\) " loglines)
(push (match-string 1 loglines) vc-svn-revisions)
(setq start (+ start (match-end 0)))
(setq loglines (buffer-substring-no-properties start (point-max)))))
vc-svn-revisions)))
(provide 'vc-svn)
;; arch-tag: 02f10c68-2b4d-453a-90fc-1eee6cfb268d
......
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