diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-08-25 08:53:32 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-08-25 08:53:32 +0000 |
| commit | 66f3089ca8b0d869cb8f1710e0099b8b2f62358c (patch) | |
| tree | 85f70ced1a21f147478010cf2f2aca58b243225e /lisp/vc-cvs.el | |
| parent | e82b1099e15f0d3f9d107741e373365eefbdc23c (diff) | |
| download | emacs-66f3089ca8b0d869cb8f1710e0099b8b2f62358c.tar.gz | |
* vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):
Let-bind `process-file-side-effects' with nil.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 9d153e5c9fc..b096f2304f1 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -225,7 +225,8 @@ See also variable `vc-cvs-sticky-date-format-string'." 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 @@ Will fail unless you have administrative privileges on the repo." (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 @@ is non-nil." ;; 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") |