changeset 105472:7810759c427c

(log-view-diff): Use vc-diff-internal instead of vc-version-diff. (vc-diff-internal): Autoload this instead of vc-version-diff.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 05 Oct 2009 15:09:59 +0000
parents c23aa87ffa7d
children 07f6674a0832
files lisp/ChangeLog lisp/log-view.el
diffstat 2 files changed, 13 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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))