diff options
Diffstat (limited to 'lisp/vc/vc-bzr.el')
| -rw-r--r-- | lisp/vc/vc-bzr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index cc28db689e9..f6b6a56f31c 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el @@ -444,7 +444,7 @@ If any error occurred in running `bzr status', then return nil." (let ((warnings (cdr result))) (when warnings ;; bzr 2.3.0 returns info about shelves, which is not really a warning - (when (string-match "[1-9]+ shel\\(f\\|ves\\) exists?\\..*?\n" warnings) + (when (string-match "[0-9]+ shel\\(f\\|ves\\) exists?\\..*?\n" warnings) (setq warnings (replace-match "" nil nil warnings))) (unless (string= warnings "") (message "Warnings in `bzr' output: %s" warnings)))) @@ -891,7 +891,7 @@ stream. Standard error output is discarded." (goto-char (point-min)) (while (not (eobp)) ;; Bzr 2.3.0 added this if there are shelves. (Bug#8170) - (unless (looking-at "[1-9]+ shel\\(f\\|ves\\) exists?\\.") + (unless (looking-at "[0-9]+ shel\\(f\\|ves\\) exists?\\.") (setq status-str (buffer-substring-no-properties (point) (+ (point) 3))) (setq translated (cdr (assoc status-str translation))) |