* vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):

Let-bind `process-file-side-effects' with nil.

1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 9d153e5c9fc..b096f2304f1 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -225,7 +225,8 @@ See also variable `vc-cvs-sticky-date-format-string'."
           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 @@ Will fail unless you have administrative privileges on the repo."
 
 (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 @@ is non-nil."
 ;; 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")