Mercurial > emacs
changeset 85461:abd6fdb45765
(vc-mtn-revision-completion-table):Make it work when the arg is a list of files.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 20 Oct 2007 01:13:10 +0000 |
| parents | d36b2b98840f |
| children | 43a9834cf1a6 |
| files | lisp/ChangeLog lisp/vc-mtn.el |
| diffstat | 2 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 20 01:11:18 2007 +0000 +++ b/lisp/ChangeLog Sat Oct 20 01:13:10 2007 +0000 @@ -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>
--- a/lisp/vc-mtn.el Sat Oct 20 01:11:18 2007 +0000 +++ b/lisp/vc-mtn.el Sat Oct 20 01:13:10 2007 +0000 @@ -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.