Mercurial > emacs
diff lisp/vc-git.el @ 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 | b16f7408cd3f |
children | 43a9834cf1a6 |
line wrap: on
line diff
--- 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)