# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1192842472 0
# Node ID 119299b8a040293a894db3344be72722f7d0c007
# Parent  e58eb1e72d234a6e772df8a90a730d996b7dfe8e
(vc-cvs-revision-completion-table): Make it work when the
arg is a list of files.

diff -r e58eb1e72d23 -r 119299b8a040 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 20 01:05:50 2007 +0000
+++ b/lisp/ChangeLog	Sat Oct 20 01:07:52 2007 +0000
@@ -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 -r e58eb1e72d23 -r 119299b8a040 lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Sat Oct 20 01:05:50 2007 +0000
+++ b/lisp/vc-cvs.el	Sat Oct 20 01:07:52 2007 +0000
@@ -962,11 +962,11 @@
         (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))