diff options
| -rw-r--r-- | lisp/vc-bzr.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 | |||
| 134 | (with-temp-buffer | 134 | (with-temp-buffer |
| 135 | (set-buffer-multibyte nil) | 135 | (set-buffer-multibyte nil) |
| 136 | (let ((prog sha1-program) | 136 | (let ((prog sha1-program) |
| 137 | (args nil)) | 137 | (args nil) |
| 138 | process-file-side-effects) | ||
| 138 | (when (consp prog) | 139 | (when (consp prog) |
| 139 | (setq args (cdr prog)) | 140 | (setq args (cdr prog)) |
| 140 | (setq prog (car prog))) | 141 | (setq prog (car prog))) |
| @@ -751,7 +752,8 @@ stream. Standard error output is discarded." | |||
| 751 | ((string-match "\\`\\(tag\\):" string) | 752 | ((string-match "\\`\\(tag\\):" string) |
| 752 | (let ((prefix (substring string 0 (match-end 0))) | 753 | (let ((prefix (substring string 0 (match-end 0))) |
| 753 | (tag (substring string (match-end 0))) | 754 | (tag (substring string (match-end 0))) |
| 754 | (table nil)) | 755 | (table nil) |
| 756 | process-file-side-effects) | ||
| 755 | (with-temp-buffer | 757 | (with-temp-buffer |
| 756 | ;; "bzr-1.2 tags" is much faster with --show-ids. | 758 | ;; "bzr-1.2 tags" is much faster with --show-ids. |
| 757 | (process-file vc-bzr-program nil '(t) nil "tags" "--show-ids") | 759 | (process-file vc-bzr-program nil '(t) nil "tags" "--show-ids") |