Commit 9f11ce4e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-git-revision-completion-table, vc-git-revision-table):

Make it work when the arg is a list of files.
parent 32c58c47
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-git.el (vc-git-revision-completion-table, vc-git-revision-table):
* vc-cvs.el (vc-cvs-revision-completion-table):
* vc-arch.el (vc-arch-revision-completion-table): Make it work when the
arg is a list of files.
......
......@@ -319,7 +319,8 @@
(vc-git-command buf 1 files "diff-tree" "--exit-code" "-p" rev1 rev2 "--")
(vc-git-command buf 1 files "diff-index" "--exit-code" "-p" (or rev1 "HEAD") "--"))))
(defun vc-git-revision-table (file)
(defun vc-git-revision-table (files)
;; What about `files'?!? --Stef
(let ((table (list "HEAD")))
(with-temp-buffer
(vc-git-command t nil nil "for-each-ref" "--format=%(refname)")
......@@ -328,11 +329,11 @@
(push (match-string 2) table)))
table))
(defun vc-git-revision-completion-table (file)
(lexical-let ((file file)
(defun vc-git-revision-completion-table (files)
(lexical-let ((files files)
table)
(setq table (lazy-completion-table
table (lambda () (vc-git-revision-table file))))
table (lambda () (vc-git-revision-table files))))
table))
(defun vc-git-diff-tree (dir &optional rev1 rev2)
......
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