From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 20 Oct 2007 01:13:10 +0000 (+0000)
Subject: (vc-mtn-revision-completion-table):Make it work when the arg is a list of files.
X-Git-Tag: emacs-pretest-23.0.90~10207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=844b90ae5980f87dd25b38e8cc9e46568f3aa727;p=emacs.git

(vc-mtn-revision-completion-table):Make it work when the arg is a list of files.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eeec0e278ca..de9e1011e40 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,11 @@
 2007-10-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* vc-mtn.el (vc-mtn-revision-completion-table):
+	* vc-cvs.el (vc-cvs-revision-completion-table):
+	* vc-arch.el (vc-arch-revision-completion-table):
 	* vc-hg.el (vc-hg-revision-completion-table, vc-hg-revision-table):
 	* vc-git.el (vc-git-revision-completion-table, vc-git-revision-table):
-	* 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.
+	Make it work when the arg is a list of files.
 
 2007-10-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index 5365b4d9289..0e10738a60d 100644
--- a/lisp/vc-mtn.el
+++ b/lisp/vc-mtn.el
@@ -239,10 +239,11 @@
         (push (match-string 0) ids))
       ids)))
 
-(defun vc-mtn-revision-completion-table (file)
+(defun vc-mtn-revision-completion-table (files)
   ;; TODO: Implement completion for for selectors
   ;; TODO: Implement completion for composite selectors.
-  (lexical-let ((file file))
+  (lexical-let ((files files))
+    ;; What about using `files'?!?  --Stef
     (lambda (string pred action)
       (cond
        ;; "Tag" selectors.