# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1251190256 0
# Node ID cfc336042c1b00652852ecb58645ecc15eb06bd4
# Parent  1c682f1cb8e65e9a730257567868da0112415df9
* vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):
Let-bind `process-file-side-effects' with nil.

diff -r 1c682f1cb8e6 -r cfc336042c1b lisp/vc-bzr.el
--- a/lisp/vc-bzr.el	Tue Aug 25 08:49:24 2009 +0000
+++ b/lisp/vc-bzr.el	Tue Aug 25 08:50:56 2009 +0000
@@ -134,7 +134,8 @@
   (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 @@
        ((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")