# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1251190537 0
# Node ID d3ef713449d3a76a23531825dc0bd841cb69d5e4
# Parent  5bce9145b1ccde947c54f859e6965f2d70aa9b51
* vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil.

diff -r 5bce9145b1cc -r d3ef713449d3 lisp/vc.el
--- a/lisp/vc.el	Tue Aug 25 08:53:32 2009 +0000
+++ b/lisp/vc.el	Tue Aug 25 08:55:37 2009 +0000
@@ -1481,7 +1481,8 @@
     ;; 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 @@
       (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))