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

d7927b9f · Dan Nicolaescu · 3f0257cb · d7927b9f · d7927b9f
Commit d7927b9f authored Jul 20, 2007 by Dan Nicolaescu
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/vc-hg.el lisp/vc-hg.el +5 -4

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -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))