# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1254755399 0
# Node ID 7810759c427c438cd770add68e984fb4cebfb2ef
# Parent  c23aa87ffa7dee1dc3a13e626c11953a3f76b03f
(log-view-diff): Use vc-diff-internal instead of
vc-version-diff.
(vc-diff-internal): Autoload this instead of vc-version-diff.

diff -r c23aa87ffa7d -r 7810759c427c lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Oct 05 11:49:45 2009 +0000
+++ b/lisp/ChangeLog	Mon Oct 05 15:09:59 2009 +0000
@@ -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 -r c23aa87ffa7d -r 7810759c427c lisp/log-view.el
--- a/lisp/log-view.el	Mon Oct 05 11:49:45 2009 +0000
+++ b/lisp/log-view.el	Mon Oct 05 15:09:59 2009 +0000
@@ -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 @@
         (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))