Commit d7927b9f authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(vc-hg-diff): Use vc-hg-command.

parent 3f0257cb
2007-07-20 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-diff): Use vc-hg-command.
2007-07-20 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Problem with foreground and background color when
......
......@@ -282,15 +282,16 @@
(setq oldvers nil))
(if (and (not oldvers) newvers)
(setq oldvers working))
(apply 'call-process "hg" nil (or buffer "*vc-diff*") nil
"--cwd" (file-name-directory (car files)) "diff"
(apply #'vc-hg-command (or buffer "*vc-diff*") nil
(mapcar (lambda (file) (file-name-nondirectory file)) files)
"--cwd" (file-name-directory (car files))
"diff"
(append
(if oldvers
(if newvers
(list "-r" oldvers "-r" newvers)
(list "-r" oldvers))
(list ""))
(mapcar (lambda (file) (file-name-nondirectory file)) files)))))
(list ""))))))
(defun vc-hg-diff-tree (file &optional oldvers newvers buffer)
(vc-hg-diff (list file) 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