[Emacs-diffs] emacs/lisp vc-bzr.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/08/25 08:50:56

Modified files:
        lisp           : vc-bzr.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-bzr.el?cvsroot=emacs&r1=1.79&r2=1.80

Patches:
Index: vc-bzr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-bzr.el,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -b -r1.79 -r1.80
--- vc-bzr.el   27 Jul 2009 17:50:27 -0000      1.79
+++ vc-bzr.el   25 Aug 2009 08:50:56 -0000      1.80
@@ -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")