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

diff --git a/lisp/vc.el b/lisp/vc.el
index 1f3ea9ddcafe7c138cf4217140efc3a7722ce58c..5bc8e2fd1ec4d946e9ab2f91b72ba80f069bec2c 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -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))