Mercurial > emacs

changeset 104595:cfc336042c1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table): Let-bind `process-file-side-effects' with nil.
author Michael Albinus <michael.albinus@gmx.de>
date Tue, 25 Aug 2009 08:50:56 +0000
parents 1c682f1cb8e6
children 5bce9145b1cc
files lisp/vc-bzr.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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")