# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1251190412 0
# Node ID 5bce9145b1ccde947c54f859e6965f2d70aa9b51
# Parent  cfc336042c1b00652852ecb58645ecc15eb06bd4
* vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):
Let-bind `process-file-side-effects' with nil.

diff -r cfc336042c1b -r 5bce9145b1cc lisp/vc-cvs.el
--- 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")