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