From 9f11ce4ec359555a7bf6f26479c6a9a2f2aa9afe Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 20 Oct 2007 01:09:59 +0000 Subject: [PATCH] (vc-git-revision-completion-table, vc-git-revision-table): Make it work when the arg is a list of files. --- lisp/ChangeLog | 1 + lisp/vc-git.el | 9 +++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d028f56cf55..eb6859e2fe7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,6 @@ 2007-10-20 Stefan Monnier + * vc-git.el (vc-git-revision-completion-table, vc-git-revision-table): * 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-git.el b/lisp/vc-git.el index 4bf6506dcb1..d98afa3de17 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -319,7 +319,8 @@ (vc-git-command buf 1 files "diff-tree" "--exit-code" "-p" rev1 rev2 "--") (vc-git-command buf 1 files "diff-index" "--exit-code" "-p" (or rev1 "HEAD") "--")))) -(defun vc-git-revision-table (file) +(defun vc-git-revision-table (files) + ;; What about `files'?!? --Stef (let ((table (list "HEAD"))) (with-temp-buffer (vc-git-command t nil nil "for-each-ref" "--format=%(refname)") @@ -328,11 +329,11 @@ (push (match-string 2) table))) table)) -(defun vc-git-revision-completion-table (file) - (lexical-let ((file file) +(defun vc-git-revision-completion-table (files) + (lexical-let ((files files) table) (setq table (lazy-completion-table - table (lambda () (vc-git-revision-table file)))) + table (lambda () (vc-git-revision-table files)))) table)) (defun vc-git-diff-tree (dir &optional rev1 rev2) -- 2.39.2