From 32c58c4725a8091b8d11366db914686d4e7a59b7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 20 Oct 2007 01:07:52 +0000 Subject: [PATCH] (vc-cvs-revision-completion-table): Make it work when the arg is a list of files. --- lisp/ChangeLog | 1 + 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 + * 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)) -- 2.39.2