From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 20 Oct 2007 01:09:59 +0000 (+0000)
Subject: (vc-git-revision-completion-table, vc-git-revision-table):
X-Git-Tag: emacs-pretest-23.0.90~10209
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f11ce4ec359555a7bf6f26479c6a9a2f2aa9afe;p=emacs.git

(vc-git-revision-completion-table, vc-git-revision-table):
Make it work when the arg is a list of files.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d028f56cf55..eb6859e2fe7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
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)