From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Aug 2009 08:55:37 +0000 (+0000)
Subject: * vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil.
X-Git-Tag: emacs-pretest-23.1.90~1692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4968879cda343b714a85eb606b3e67264203e933;p=emacs.git

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

diff --git a/lisp/vc.el b/lisp/vc.el
index 1f3ea9ddcaf..5bc8e2fd1ec 100644
--- 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))