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 | |
| parent | a44d450b8ce1e1d39b56e896b665798f826eb3fb (diff) | |
| download | emacs-32c58c4725a8091b8d11366db914686d4e7a59b7.tar.gz | |
(vc-cvs-revision-completion-table): Make it work when the
arg is a list of files.
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/vc-cvs.el | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b05862f05dc..d028f56cf55 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. 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)) |