diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc/vc-bzr.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 73d05c7bfce..d0e9f7744b8 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el | |||
| @@ -98,7 +98,9 @@ If nil, use the value of `vc-annotate-switches'. If t, use no switches." | |||
| 98 | (defcustom vc-bzr-status-switches | 98 | (defcustom vc-bzr-status-switches |
| 99 | (ignore-errors | 99 | (ignore-errors |
| 100 | (with-temp-buffer | 100 | (with-temp-buffer |
| 101 | (call-process vc-bzr-program nil t nil "help" "status") | 101 | (let ((process-environment (cons (format "BZR_LOG=%s" null-device) |
| 102 | process-environment))) | ||
| 103 | (call-process vc-bzr-program nil t nil "help" "status")) | ||
| 102 | (if (search-backward "--no-classify" nil t) | 104 | (if (search-backward "--no-classify" nil t) |
| 103 | "--no-classify"))) | 105 | "--no-classify"))) |
| 104 | "String or list of strings specifying switches for bzr status under VC. | 106 | "String or list of strings specifying switches for bzr status under VC. |