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

arg is a list of files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19986354bd416135bcdf10180ab41659031b6b37..b05862f05dcb87be03d8c976c3b8d4fb7bbf5400 100644 (file)
--- 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 96957de08128b57737dc48fec81ff127535537b8..3c4e4b4d7913970017a4541c499481e7b88d002c 100644 (file)
--- 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)))))