[Emacs-diffs] Changes to emacs/lisp/vc-git.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/10/20 01:10:00

Index: vc-git.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- vc-git.el   10 Oct 2007 19:39:22 -0000      1.23
+++ vc-git.el   20 Oct 2007 01:09:58 -0000      1.24
@@ -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)