From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 20 Jul 2007 17:32:04 +0000 (+0000)
Subject: (vc-hg-diff): Use vc-hg-command.
X-Git-Tag: emacs-pretest-23.0.90~11817
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7927b9f487e83cffbb1e051d7b0f2b1f2a4b985;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a7a6c25758..c7f71d5cfc5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 596e95a70b2..21ce5c38f41 100644
--- 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))