andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
vc-version-diff.
(vc-diff-internal): Autoload this instead of vc-version-diff.
This commit is contained in:
Dan Nicolaescu 2009-10-05 15:09:59 +00:00
parent 2a3f19ef97
commit c66b7ac005
2 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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> 2009-10-05 Eli Zaretskii <eliz@gnu.org>
* simple.el (eval-expression): Doc fix. * simple.el (eval-expression): Doc fix.

13
lisp/log-view.el
View file

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