From 4968879cda343b714a85eb606b3e67264203e933 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 Aug 2009 08:55:37 +0000 Subject: [PATCH] * vc.el (vc-diff-internal): Let-bind `process-file-side-effects' with nil. --- lisp/vc.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.39.5