(vc-cvs-revision-completion-table): Make it work when the

arg is a list of files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b05862f05dcb87be03d8c976c3b8d4fb7bbf5400..d028f56cf55935aa5c6480b2f5de1e5203cef73c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,6 @@
 2007-10-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * 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-cvs.el b/lisp/vc-cvs.el
index 5ffb4815182a94cfc8e77bd839e5acea15cccb2c..79a4263854db09156d507b85918650cd19012360 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -962,11 +962,11 @@ is non-nil."
         (push (match-string 1) res))
       res)))
 
-(defun vc-cvs-revision-completion-table (file)
-  (lexical-let ((file file)
+(defun vc-cvs-revision-completion-table (files)
+  (lexical-let ((files files)
                 table)
     (setq table (lazy-completion-table
-                 table (lambda () (vc-cvs-revision-table file))))
+                 table (lambda () (vc-cvs-revision-table (car files)))))
     table))