(log-view-diff): Use vc-diff-internal instead of

vc-version-diff.
(vc-diff-internal): Autoload this instead of vc-version-diff.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0e95db2b88faa3b9c3c94271fbfbf895062fffd..560ec8e09a48d3f2628ee15d7d578e72b6984594 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-10-05  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * log-view.el (log-view-diff): Use vc-diff-internal instead of
+       vc-version-diff.
+       (vc-diff-internal): Autoload this instead of vc-version-diff.
+
 2009-10-05  Eli Zaretskii  <eliz@gnu.org>
 
        * simple.el (eval-expression): Doc fix.

diff --git a/lisp/log-view.el b/lisp/log-view.el
index 1b79f0a595afd1e1cac068e2e8bf4ae617789f5d..039ecefceec4318851db2c113dc5d11f72ddae2f 100644 (file)
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -113,7 +113,7 @@
 (eval-when-compile (require 'cl))
 (require 'pcvs-util)
 (autoload 'vc-find-revision "vc")
-(autoload 'vc-version-diff "vc")
+(autoload 'vc-diff-internal "vc")
 
 (defvar cvs-minor-wrap-function)
 
@@ -496,11 +496,12 @@ changeset that affected the currently considered file(s)."
         (goto-char end)
         (log-view-msg-next)
         (setq to (log-view-current-tag))))
-    (vc-version-diff
-     (if log-view-per-file-logs
-        (list (log-view-current-file))
-       log-view-vc-fileset)
-       to fr)))
+    (vc-diff-internal
+     t (list log-view-vc-backend
+            (if log-view-per-file-logs
+                (list (log-view-current-file))
+              log-view-vc-fileset))
+     to fr)))
 
 (declare-function vc-diff-internal "vc"
                  (async vc-fileset rev1 rev2 &optional verbose))