Mercurial > emacs

changeset 104597:d3ef713449d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil.
author Michael Albinus <michael.albinus@gmx.de>
date Tue, 25 Aug 2009 08:55:37 +0000
parents 5bce9145b1cc
children 1c78b6ed2b93
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))