diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:07:52 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:07:52 +0000 |
| commit | 32c58c4725a8091b8d11366db914686d4e7a59b7 (patch) | |
| tree | 8e36862f5235082e8917b36259093ed299241e6f /lisp/vc-cvs.el | |
| parent | a44d450b8ce1e1d39b56e896b665798f826eb3fb (diff) | |
| download | emacs-32c58c4725a8091b8d11366db914686d4e7a59b7.tar.gz emacs-32c58c4725a8091b8d11366db914686d4e7a59b7.tar.bz2 emacs-32c58c4725a8091b8d11366db914686d4e7a59b7.zip | |
(vc-cvs-revision-completion-table): Make it work when the
arg is a list of files.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 5ffb4815182..79a4263854d 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -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)) |