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

[Michael Albinus]

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

Modified files:
        lisp           : vc-svn.el 

Log message:
        (vc-svn-dir-extra-headers, vc-svn-find-revision):
        Let-bind `process-file-side-effects' with nil.

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

Patches:
Index: vc-svn.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-svn.el,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -b -r1.115 -r1.116
--- vc-svn.el   23 Jun 2009 06:35:43 -0000      1.115
+++ vc-svn.el   25 Aug 2009 09:05:07 -0000      1.116
@@ -126,7 +126,8 @@
                                           (file-name-directory file)))
     (with-temp-buffer
       (cd (file-name-directory file))
-      (let ((status
+      (let* (process-file-side-effects
+            (status
              (condition-case nil
                  ;; Ignore all errors.
                  (vc-svn-command t t file "status" "-v")
@@ -142,11 +143,12 @@
 
 (defun vc-svn-state (file &optional localp)
   "SVN-specific version of `vc-state'."
+  (let (process-file-side-effects)
   (setq localp (or localp (vc-stay-local-p file 'SVN)))
   (with-temp-buffer
     (cd (file-name-directory file))
     (vc-svn-command t 0 file "status" (if localp "-v" "-u"))
-    (vc-svn-parse-status file)))
+      (vc-svn-parse-status file))))
 
 (defun vc-svn-state-heuristic (file)
   "SVN-specific state heuristic."
@@ -203,7 +205,8 @@
 
 (defun vc-svn-dir-extra-headers (dir)
   "Generate extra status headers for a Subversion working copy."
-  (vc-svn-command "*vc*" 0 nil "info")
+  (let (process-file-side-effects)
+    (vc-svn-command "*vc*" 0 nil "info"))
   (let ((repo
         (save-excursion
           (and (progn
@@ -305,12 +308,13 @@
 
 (defun vc-svn-find-revision (file rev buffer)
   "SVN-specific retrieval of a specified version into a buffer."
+  (let (process-file-side-effects)
   (apply 'vc-svn-command
         buffer 0 file
         "cat"
         (and rev (not (string= rev ""))
              (concat "-r" rev))
-        (vc-switches 'SVN 'checkout)))
+          (vc-switches 'SVN 'checkout))))
 
 (defun vc-svn-checkout (file &optional editable rev)
   (message "Checking out %s..." file)