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

arg is a list of files.

2 files changed, 4 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b05862f05dc..d028f56cf55 100644
--- 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 5ffb4815182..79a4263854d 100644
--- 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))