From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 20 Oct 2007 01:05:50 +0000 (+0000)
Subject: (vc-arch-revision-completion-table): Make it work when the
X-Git-Tag: emacs-pretest-23.0.90~10211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a44d450b8ce1e1d39b56e896b665798f826eb3fb;p=emacs.git

(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 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)))))