Commit 32c58c47 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-cvs-revision-completion-table): Make it work when the

arg is a list of files.
parent a44d450b
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
* 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.
......
......@@ -962,11 +962,11 @@ is non-nil."
(push (match-string 1) res))
res)))
(defun vc-cvs-revision-completion-table (file)
(lexical-let ((file file)
(defun vc-cvs-revision-completion-table (files)
(lexical-let ((files files)
table)
(setq table (lazy-completion-table
table (lambda () (vc-cvs-revision-table file))))
table (lambda () (vc-cvs-revision-table (car files)))))
table))
......
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