Commit 87d1a48e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(vc-hg-revision-completion-table, vc-hg-revision-table): Make it work when the

arg is a list of files.
parent 9f11ce4e
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hg.el (vc-hg-revision-completion-table, vc-hg-revision-table):
* 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
......
......@@ -294,19 +294,19 @@
(list "-r" oldvers))
(list ""))))))
(defun vc-hg-revision-table (file)
(let ((default-directory (file-name-directory file)))
(defun vc-hg-revision-table (files)
(let ((default-directory (file-name-directory (car files))))
(with-temp-buffer
(vc-hg-command t nil file "log" "--template" "{rev} ")
(split-string
(buffer-substring-no-properties (point-min) (point-max))))))
;; Modelled after the similar function in vc-cvs.el
(defun vc-hg-revision-completion-table (file)
(lexical-let ((file file)
(defun vc-hg-revision-completion-table (files)
(lexical-let ((files files)
table)
(setq table (lazy-completion-table
table (lambda () (vc-hg-revision-table file))))
table (lambda () (vc-hg-revision-table files))))
table))
(defun vc-hg-diff-tree (file &optional oldvers newvers buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment