[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp vc-svn.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp vc-svn.el |
Date: |
Tue, 25 Aug 2009 09:05:08 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp vc-svn.el,
Michael Albinus <=