(vc-default-diff-tree): Pass a list to the diff vc command

instead of a file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cab0ac691814416cd7dab6567f2cc219702d91ee..c773cd8bf593c0e34f93f61f82ee76e65cf972b7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-06  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc.el (vc-default-diff-tree): Pass a list to the diff vc command
+       instead of a file.
+
 2007-09-06  Glenn Morris  <rgm@gnu.org>
 
        * emacs-lisp/checkdoc.el (checkdoc-minor-mode-string): New.

diff --git a/lisp/vc.el b/lisp/vc.el
index f04bdcc475c139ecde07a25d1d3f38ef1668027a..222825b054f1b1f12fba7f0793639db5e3e4af5b 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1990,7 +1990,7 @@ The meaning of REV1 and REV2 is the same as for `vc-version-diff'."
       `(let ((coding-system-for-read (vc-coding-system-for-diff ',f)))
          (message "Looking at %s" ',f)
          (vc-call-backend ',(vc-backend f)
-                          'diff ',f ',rev1 ',rev2))))))
+                          'diff (list ',f) ',rev1 ',rev2))))))
 
 (defun vc-coding-system-for-diff (file)
   "Return the coding system for reading diff output for FILE."