mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

* vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil.

Browse source
This commit is contained in:
Michael Albinus 2009-08-25 08:55:37 +00:00
parent 66f3089ca8
commit 4968879cda
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc.el
View file

@ -1481,7 +1481,8 @@ returns t if the buffer had changes, nil otherwise."
;; I made it conditional on vc-diff-added-files but it should probably
;; just be removed (or copied/moved to specific backends). --Stef.
(when vc-diff-added-files
(let ((filtered '()))
(let ((filtered '())
process-file-side-effects)
(dolist (file files)
(if (or (file-directory-p file)
(not (string= (vc-working-revision file) "0")))
@ -1828,7 +1829,7 @@ allowed and simply skipped)."
(vc-call-backend ',backend 'log-view-mode)
(set (make-local-variable 'log-view-vc-backend) ',backend)
(set (make-local-variable 'log-view-vc-fileset) ',files)
;; FIXME: this seems to apply only to RCS/CVS, it doesn't quite
;; belong here in the generic code.
(goto-char (point-max))