Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
arg is a list of files.
This commit is contained in:
Stefan Monnier 2007-10-20 01:07:52 +00:00
parent a44d450b8c
commit 32c58c4725
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -1,5 +1,6 @@
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.

6
lisp/vc-cvs.el
View file

@ -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))