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

arg is a list of files.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19986354bd4..b05862f05dc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * vc-arch.el (vc-arch-revision-completion-table): Make it work when the
+        arg is a list of files.
+
 2007-10-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * vc.el: Remove `diff-tree' operation, now subsumed by `diff'.
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index 96957de0812..3c4e4b4d791 100644
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -442,11 +442,11 @@ Return non-nil if FILE is unchanged."
                       (concat "*/" string))
                     "*"))))))
 
-(defun vc-arch-revision-completion-table (file)
-  (lexical-let ((file file))
+(defun vc-arch-revision-completion-table (files)
+  (lexical-let ((files files))
     (lambda (string pred action)
       ;; FIXME: complete revision patches as well.
-      (let* ((root (expand-file-name "{arch}" (vc-arch-root file)))
+      (let* ((root (expand-file-name "{arch}" (vc-arch-root (car files))))
              (table (vc-arch--version-completion-table root string)))
         (complete-with-action action table string pred)))))