Commit e82b1099 authored by Michael Albinus's avatar Michael Albinus
Browse files

* vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):

Let-bind `process-file-side-effects' with nil.
parent 9fb5c929
......@@ -134,7 +134,8 @@ Invoke the bzr command adding `BZR_PROGRESS_BAR=none' and
(set-buffer-multibyte nil)
(let ((prog sha1-program)
(args nil))
(args nil)
(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)
;; "bzr-1.2 tags" is much faster with --show-ids.
(process-file vc-bzr-program nil '(t) nil "tags" "--show-ids")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment