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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a7a6c257583137366d52cb9d807dfae228da18f..c7f71d5cfc5795876cff1d6648cc9220c9505a8c 100644 (file)
--- 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 596e95a70b21ccfc3d47a814611982e665e88b78..21ce5c38f41800c3ac6879f78c2f9f4b18b9e60d 100644 (file)
--- 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))