diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:09:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:09:59 +0000 |
| commit | 9f11ce4ec359555a7bf6f26479c6a9a2f2aa9afe (patch) | |
| tree | bdd6149fd5cb7ab4616578273eb349fafbd99632 /lisp/vc-git.el | |
| parent | 32c58c4725a8091b8d11366db914686d4e7a59b7 (diff) | |
| download | emacs-9f11ce4ec359555a7bf6f26479c6a9a2f2aa9afe.tar.gz | |
(vc-git-revision-completion-table, vc-git-revision-table):
Make it work when the arg is a list of files.
Diffstat (limited to 'lisp/vc-git.el')
| -rw-r--r-- | lisp/vc-git.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/vc-git.el b/lisp/vc-git.el index 4bf6506dcb1..d98afa3de17 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -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) |