Commit 4968879c authored by Michael Albinus's avatar Michael Albinus
Browse files

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

parent 66f3089c
...@@ -1481,7 +1481,8 @@ returns t if the buffer had changes, nil otherwise." ...@@ -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 ;; I made it conditional on vc-diff-added-files but it should probably
;; just be removed (or copied/moved to specific backends). --Stef. ;; just be removed (or copied/moved to specific backends). --Stef.
(when vc-diff-added-files (when vc-diff-added-files
(let ((filtered '())) (let ((filtered '())
process-file-side-effects)
(dolist (file files) (dolist (file files)
(if (or (file-directory-p file) (if (or (file-directory-p file)
(not (string= (vc-working-revision file) "0"))) (not (string= (vc-working-revision file) "0")))
...@@ -1828,7 +1829,7 @@ allowed and simply skipped)." ...@@ -1828,7 +1829,7 @@ allowed and simply skipped)."
(vc-call-backend ',backend 'log-view-mode) (vc-call-backend ',backend 'log-view-mode)
(set (make-local-variable 'log-view-vc-backend) ',backend) (set (make-local-variable 'log-view-vc-backend) ',backend)
(set (make-local-variable 'log-view-vc-fileset) ',files) (set (make-local-variable 'log-view-vc-fileset) ',files)
;; FIXME: this seems to apply only to RCS/CVS, it doesn't quite ;; FIXME: this seems to apply only to RCS/CVS, it doesn't quite
;; belong here in the generic code. ;; belong here in the generic code.
(goto-char (point-max)) (goto-char (point-max))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment