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

diff -r 1cd2eac93134 -r e58eb1e72d23 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 20 00:48:06 2007 +0000
+++ b/lisp/ChangeLog	Sat Oct 20 01:05:50 2007 +0000
@@ -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 -r 1cd2eac93134 -r e58eb1e72d23 lisp/vc-arch.el
--- a/lisp/vc-arch.el	Sat Oct 20 00:48:06 2007 +0000
+++ b/lisp/vc-arch.el	Sat Oct 20 01:05:50 2007 +0000
@@ -442,11 +442,11 @@
 		      (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)))))