Mercurial > emacs
changeset 81998:52950d8efd2b
(vc-hg-diff): Use vc-hg-command.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 20 Jul 2007 17:32:04 +0000 |
| parents | 702e736c11f0 |
| children | c0fc8e3cb6b4 |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))