# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1184952724 0
# Node ID 52950d8efd2b9760d2d6ed6de3aeaeb9cfd635b8
# Parent  702e736c11f0017beccd2390a1f494e5a4786cc5
(vc-hg-diff): Use vc-hg-command.

diff -r 702e736c11f0 -r 52950d8efd2b lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jul 20 17:24:39 2007 +0000
+++ b/lisp/ChangeLog	Fri Jul 20 17:32:04 2007 +0000
@@ -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 -r 702e736c11f0 -r 52950d8efd2b lisp/vc-hg.el
--- a/lisp/vc-hg.el	Fri Jul 20 17:24:39 2007 +0000
+++ b/lisp/vc-hg.el	Fri Jul 20 17:32:04 2007 +0000
@@ -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))