From e82b1099e15f0d3f9d107741e373365eefbdc23c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 Aug 2009 08:50:56 +0000 Subject: [PATCH] * vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table): Let-bind `process-file-side-effects' with nil. --- lisp/vc-bzr.el | 6 ++++-- 1 file 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") -- 2.39.5