From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Aug 2009 08:50:56 +0000 (+0000)
Subject: * vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):
X-Git-Tag: emacs-pretest-23.1.90~1694
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e82b1099e15f0d3f9d107741e373365eefbdc23c;p=emacs.git

* vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):
Let-bind `process-file-side-effects' with nil.
---

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")