Mercurial > emacs
comparison lisp/vc-bzr.el @ 106982:38312121c181
working version of vc-bzr-revision-table
| author | Mark A. Hershberger <mhershberger@intrahealth.org> |
|---|---|
| date | Mon, 25 Jan 2010 00:02:10 -0500 |
| parents | 328951014a28 |
| children | e9c454218ac8 |
comparison
equal
deleted
inserted
replaced
| 106981:e3fcbe16deae | 106982:38312121c181 |
|---|---|
| 896 | 896 |
| 897 (defun vc-bzr-shelve-menu (e) | 897 (defun vc-bzr-shelve-menu (e) |
| 898 (interactive "e") | 898 (interactive "e") |
| 899 (vc-dir-at-event e (popup-menu vc-bzr-shelve-menu-map e))) | 899 (vc-dir-at-event e (popup-menu vc-bzr-shelve-menu-map e))) |
| 900 | 900 |
| 901 (defun vc-bzr-revision-table (files) | |
| 902 (let ((vc-bzr-revisions '()) | |
| 903 (default-directory (file-name-directory (car files)))) | |
| 904 (with-temp-buffer | |
| 905 (vc-bzr-command "log" t 0 files "--line") | |
| 906 (let ((start (point-min)) | |
| 907 (loglines (buffer-substring-no-properties (point-min) (point-max)))) | |
| 908 (while (string-match "^\\([0-9]+\\):" loglines) | |
| 909 (push (match-string 1 loglines) vc-bzr-revisions) | |
| 910 (setq start (+ start (match-end 0))) | |
| 911 (setq loglines (buffer-substring-no-properties start (point-max)))))) | |
| 912 vc-bzr-revisions)) | |
| 913 | |
| 901 ;;; Revision completion | 914 ;;; Revision completion |
| 902 | 915 |
| 903 (eval-and-compile | 916 (eval-and-compile |
| 904 (defconst vc-bzr-revision-keywords | 917 (defconst vc-bzr-revision-keywords |
| 905 '("revno" "revid" "last" "before" | 918 '("revno" "revid" "last" "before" |