diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:05:50 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:05:50 +0000 |
| commit | a44d450b8ce1e1d39b56e896b665798f826eb3fb (patch) | |
| tree | 5b2e1baf9f78a86d0acefb1cb407892c361a627f /lisp | |
| parent | 4bb49b438b372d293cda1cd9d16d49a66bfb824e (diff) | |
| download | emacs-a44d450b8ce1e1d39b56e896b665798f826eb3fb.tar.gz | |
(vc-arch-revision-completion-table): Make it work when the
arg is a list of files.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc-arch.el | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 19986354bd4..b05862f05dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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'. diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 96957de0812..3c4e4b4d791 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -442,11 +442,11 @@ Return non-nil if FILE is unchanged." (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))))) |