diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:13:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:13:10 +0000 |
| commit | 844b90ae5980f87dd25b38e8cc9e46568f3aa727 (patch) | |
| tree | 491b365f369c98f48c4ba6557f2661e179373082 /lisp/vc-mtn.el | |
| parent | 87d1a48e20b4121c467548984f5a76457d09cf62 (diff) | |
| download | emacs-844b90ae5980f87dd25b38e8cc9e46568f3aa727.tar.gz emacs-844b90ae5980f87dd25b38e8cc9e46568f3aa727.tar.bz2 emacs-844b90ae5980f87dd25b38e8cc9e46568f3aa727.zip | |
(vc-mtn-revision-completion-table):Make it work when the arg is a list of files.
Diffstat (limited to 'lisp/vc-mtn.el')
| -rw-r--r-- | lisp/vc-mtn.el | 5 |
1 files changed, 3 insertions, 2 deletions
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. |