From 844b90ae5980f87dd25b38e8cc9e46568f3aa727 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 20 Oct 2007 01:13:10 +0000 Subject: [PATCH] (vc-mtn-revision-completion-table):Make it work when the arg is a list of files. --- lisp/ChangeLog | 7 ++++--- lisp/vc-mtn.el | 5 +++-- 2 files changed, 7 insertions(+), 5 deletions(-) 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 + * 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 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. -- 2.39.2