Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d9de6d6f
Commit
d9de6d6f
authored
Jan 25, 2010
by
Mark A. Hershberger
Browse files
working version of vc-bzr-revision-table
parent
b1bb0a25
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
1 deletion
+17
-1
lisp/ChangeLog
lisp/ChangeLog
+4
-1
lisp/vc-bzr.el
lisp/vc-bzr.el
+13
-0
No files found.
lisp/ChangeLog
View file @
d9de6d6f
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>
...
...
lisp/vc-bzr.el
View file @
d9de6d6f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment