[Emacs-diffs] Changes to emacs/lisp/vc-hg.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/07/20 17:32:05

Index: vc-hg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- vc-hg.el    20 Jul 2007 03:15:18 -0000      1.17
+++ vc-hg.el    20 Jul 2007 17:32:03 -0000      1.18
@@ -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))