From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Aug 2009 09:05:07 +0000 (+0000)
Subject: (vc-svn-dir-extra-headers, vc-svn-find-revision):
X-Git-Tag: emacs-pretest-23.1.90~1689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04473f67564fa927acd5c8e13fa5a298c9e6865f;p=emacs.git

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

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 830e1582978..b07a6642192 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -126,7 +126,8 @@ want to force an empty list of arguments, use t."
 					   (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 @@ want to force an empty list of arguments, use t."
 
 (defun vc-svn-state (file &optional localp)
   "SVN-specific version of `vc-state'."
-  (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)))
+  (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))))
 
 (defun vc-svn-state-heuristic (file)
   "SVN-specific state heuristic."
@@ -203,7 +205,8 @@ RESULT is a list of conses (FILE . STATE) for directory DIR."
 
 (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 @@ This is only possible if SVN is responsible for FILE's directory.")
 
 (defun vc-svn-find-revision (file rev buffer)
   "SVN-specific retrieval of a specified version into a buffer."
-  (apply 'vc-svn-command
-	 buffer 0 file
-	 "cat"
-	 (and rev (not (string= rev ""))
-	      (concat "-r" rev))
-	 (vc-switches 'SVN 'checkout)))
+  (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))))
 
 (defun vc-svn-checkout (file &optional editable rev)
   (message "Checking out %s..." file)