[Emacs-diffs] emacs/lisp vc-cvs.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/08/25 08:53:32

Modified files:
        lisp           : vc-cvs.el 

Log message:
        * vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):
        Let-bind `process-file-side-effects' with nil.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-cvs.el?cvsroot=emacs&r1=1.166&r2=1.167

Patches:
Index: vc-cvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-cvs.el,v
retrieving revision 1.166
retrieving revision 1.167
diff -u -b -r1.166 -r1.167
--- vc-cvs.el   14 Aug 2009 04:24:06 -0000      1.166
+++ vc-cvs.el   25 Aug 2009 08:53:32 -0000      1.167
@@ -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")