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

2 files changed, 9 insertions, 4 deletions

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))