From c66b7ac005b4bfc923764dce8c492ed7b9171ef1 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 5 Oct 2009 15:09:59 +0000 Subject: [PATCH] (log-view-diff): Use vc-diff-internal instead of vc-version-diff. (vc-diff-internal): Autoload this instead of vc-version-diff. --- lisp/ChangeLog | 6 ++++++ lisp/log-view.el | 13 +++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0e95db2b88..560ec8e09a4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-10-05 Dan Nicolaescu + + * 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 * simple.el (eval-expression): Doc fix. diff --git a/lisp/log-view.el b/lisp/log-view.el index 1b79f0a595a..039ecefceec 100644 --- 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)) -- 2.39.2