Mercurial > emacs
changeset 85457:e58eb1e72d23
(vc-arch-revision-completion-table): Make it work when the
arg is a list of files.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 20 Oct 2007 01:05:50 +0000 |
| parents | 1cd2eac93134 |
| children | 119299b8a040 |
| files | lisp/ChangeLog lisp/vc-arch.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 20 00:48:06 2007 +0000 +++ b/lisp/ChangeLog Sat Oct 20 01:05:50 2007 +0000 @@ -1,3 +1,8 @@ +2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc-arch.el (vc-arch-revision-completion-table): Make it work when the + arg is a list of files. + 2007-10-19 Stefan Monnier <monnier@iro.umontreal.ca> * vc.el: Remove `diff-tree' operation, now subsumed by `diff'.
--- a/lisp/vc-arch.el Sat Oct 20 00:48:06 2007 +0000 +++ b/lisp/vc-arch.el Sat Oct 20 01:05:50 2007 +0000 @@ -442,11 +442,11 @@ (concat "*/" string)) "*")))))) -(defun vc-arch-revision-completion-table (file) - (lexical-let ((file file)) +(defun vc-arch-revision-completion-table (files) + (lexical-let ((files files)) (lambda (string pred action) ;; FIXME: complete revision patches as well. - (let* ((root (expand-file-name "{arch}" (vc-arch-root file))) + (let* ((root (expand-file-name "{arch}" (vc-arch-root (car files)))) (table (vc-arch--version-completion-table root string))) (complete-with-action action table string pred)))))