mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases 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))