[Emacs-diffs] emacs/lisp ChangeLog log-view.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/10/05 15:10:08

Modified files:
        lisp           : ChangeLog log-view.el 

Log message:
        (log-view-diff): Use vc-diff-internal instead of
        vc-version-diff.
        (vc-diff-internal): Autoload this instead of vc-version-diff.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16363&r2=1.16364
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/log-view.el?cvsroot=emacs&r1=1.60&r2=1.61

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16363
retrieving revision 1.16364
diff -u -b -r1.16363 -r1.16364
--- ChangeLog   5 Oct 2009 11:42:18 -0000       1.16363
+++ ChangeLog   5 Oct 2009 15:09:59 -0000       1.16364
@@ -1,3 +1,9 @@
+2009-10-05  Dan Nicolaescu  <address@hidden>
+
+       * 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  <address@hidden>
 
        * simple.el (eval-expression): Doc fix.

Index: log-view.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/log-view.el,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -b -r1.60 -r1.61
--- log-view.el 28 Sep 2009 04:33:20 -0000      1.60
+++ log-view.el 5 Oct 2009 15:10:04 -0000       1.61
@@ -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,10 +496,11 @@
         (goto-char end)
         (log-view-msg-next)
         (setq to (log-view-current-tag))))
-    (vc-version-diff
+    (vc-diff-internal
+     t (list log-view-vc-backend
      (if log-view-per-file-logs
         (list (log-view-current-file))
-       log-view-vc-fileset)
+              log-view-vc-fileset))
        to fr)))
 
 (declare-function vc-diff-internal "vc"