Mercurial > emacs
comparison lisp/vc-arch.el @ 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 | 8ba0e30716a5 |
| children | 613df1ba1584 4b09bb044f38 |
comparison
equal
deleted
inserted
replaced
| 85456:1cd2eac93134 | 85457:e58eb1e72d23 |
|---|---|
| 440 (concat (substring string (match-end 0)) | 440 (concat (substring string (match-end 0)) |
| 441 "*/" (substring string 0 (match-beginning 0))) | 441 "*/" (substring string 0 (match-beginning 0))) |
| 442 (concat "*/" string)) | 442 (concat "*/" string)) |
| 443 "*")))))) | 443 "*")))))) |
| 444 | 444 |
| 445 (defun vc-arch-revision-completion-table (file) | 445 (defun vc-arch-revision-completion-table (files) |
| 446 (lexical-let ((file file)) | 446 (lexical-let ((files files)) |
| 447 (lambda (string pred action) | 447 (lambda (string pred action) |
| 448 ;; FIXME: complete revision patches as well. | 448 ;; FIXME: complete revision patches as well. |
| 449 (let* ((root (expand-file-name "{arch}" (vc-arch-root file))) | 449 (let* ((root (expand-file-name "{arch}" (vc-arch-root (car files)))) |
| 450 (table (vc-arch--version-completion-table root string))) | 450 (table (vc-arch--version-completion-table root string))) |
| 451 (complete-with-action action table string pred))))) | 451 (complete-with-action action table string pred))))) |
| 452 | 452 |
| 453 ;;; Trimming revision libraries. | 453 ;;; Trimming revision libraries. |
| 454 | 454 |