Mercurial > emacs
changeset 85459:dec6fdd5ddf4
(vc-git-revision-completion-table, vc-git-revision-table):
Make it work when the arg is a list of files.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 20 Oct 2007 01:09:59 +0000 |
| parents | 119299b8a040 |
| children | d36b2b98840f |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 20 01:07:52 2007 +0000 +++ b/lisp/ChangeLog Sat Oct 20 01:09:59 2007 +0000 @@ -1,5 +1,6 @@ 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.
--- a/lisp/vc-git.el Sat Oct 20 01:07:52 2007 +0000 +++ b/lisp/vc-git.el Sat Oct 20 01:09:59 2007 +0000 @@ -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)