Commit 844b90ae authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 87d1a48e
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca> 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-hg.el (vc-hg-revision-completion-table, vc-hg-revision-table):
* vc-git.el (vc-git-revision-completion-table, vc-git-revision-table): * vc-git.el (vc-git-revision-completion-table, vc-git-revision-table):
* vc-cvs.el (vc-cvs-revision-completion-table): Make it work when the arg is a list of files.
* 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> 2007-10-19 Stefan Monnier <monnier@iro.umontreal.ca>
......
...@@ -239,10 +239,11 @@ ...@@ -239,10 +239,11 @@
(push (match-string 0) ids)) (push (match-string 0) ids))
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 for selectors
;; TODO: Implement completion for composite selectors. ;; TODO: Implement completion for composite selectors.
(lexical-let ((file file)) (lexical-let ((files files))
;; What about using `files'?!? --Stef
(lambda (string pred action) (lambda (string pred action)
(cond (cond
;; "Tag" selectors. ;; "Tag" selectors.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment