diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-08-25 08:50:56 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-08-25 08:50:56 +0000 |
| commit | e82b1099e15f0d3f9d107741e373365eefbdc23c (patch) | |
| tree | f18f083d55766168fb282921a7636a0359b3a091 /lisp | |
| parent | 9fb5c929d3c8e9e83d28d2caeeb26bed3cca5f79 (diff) | |
| download | emacs-e82b1099e15f0d3f9d107741e373365eefbdc23c.tar.gz | |
* vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):
Let-bind `process-file-side-effects' with nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc-bzr.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el index b97190056b4..314122487cc 100644 --- a/lisp/vc-bzr.el +++ b/lisp/vc-bzr.el @@ -134,7 +134,8 @@ Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and (with-temp-buffer (set-buffer-multibyte nil) (let ((prog sha1-program) - (args nil)) + (args nil) + process-file-side-effects) (when (consp prog) (setq args (cdr prog)) (setq prog (car prog))) @@ -751,7 +752,8 @@ stream. Standard error output is discarded." ((string-match "\\`\\(tag\\):" string) (let ((prefix (substring string 0 (match-end 0))) (tag (substring string (match-end 0))) - (table nil)) + (table nil) + process-file-side-effects) (with-temp-buffer ;; "bzr-1.2 tags" is much faster with --show-ids. (process-file vc-bzr-program nil '(t) nil "tags" "--show-ids") |