Mercurial > emacs
changeset 104596:5bce9145b1cc
* vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):
Let-bind `process-file-side-effects' with nil.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Tue, 25 Aug 2009 08:53:32 +0000 |
| parents | cfc336042c1b |
| children | d3ef713449d3 |
| files | lisp/vc-cvs.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-cvs.el Tue Aug 25 08:50:56 2009 +0000 +++ b/lisp/vc-cvs.el Tue Aug 25 08:53:32 2009 +0000 @@ -225,7 +225,8 @@ state)) (with-temp-buffer (cd (file-name-directory file)) - (vc-cvs-command t 0 file "status") + (let (process-file-side-effects) + (vc-cvs-command t 0 file "status")) (vc-cvs-parse-status t)))) (defun vc-cvs-state-heuristic (file) @@ -507,7 +508,8 @@ (defun vc-cvs-diff (files &optional oldvers newvers buffer) "Get a difference report using CVS between two revisions of FILE." - (let* ((async (and (not vc-disable-async-diff) + (let* (process-file-side-effects + (async (and (not vc-disable-async-diff) (vc-stay-local-p files 'CVS))) (invoke-cvs-diff-list nil) status) @@ -1166,7 +1168,8 @@ ;; tag names. (defun vc-cvs-revision-table (file) - (let ((default-directory (file-name-directory file)) + (let (process-file-side-effects + (default-directory (file-name-directory file)) (res nil)) (with-temp-buffer (vc-cvs-command t nil file "log")