diff options
| -rw-r--r-- | lisp/vc/vc-bzr.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index e6d636f23c5..d5ed5908b9c 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el | |||
| @@ -1247,7 +1247,11 @@ stream. Standard error output is discarded." | |||
| 1247 | (let ((vc-bzr-revisions '()) | 1247 | (let ((vc-bzr-revisions '()) |
| 1248 | (default-directory (file-name-directory (car files)))) | 1248 | (default-directory (file-name-directory (car files)))) |
| 1249 | (with-temp-buffer | 1249 | (with-temp-buffer |
| 1250 | (vc-bzr-command "log" t 0 files "--line") | 1250 | (apply 'vc-bzr-command "log" t 0 files |
| 1251 | (append '("--line") | ||
| 1252 | (if (stringp vc-bzr-log-switches) | ||
| 1253 | (list vc-bzr-log-switches) | ||
| 1254 | vc-bzr-log-switches))) | ||
| 1251 | (let ((start (point-min)) | 1255 | (let ((start (point-min)) |
| 1252 | (loglines (buffer-substring-no-properties (point-min) (point-max)))) | 1256 | (loglines (buffer-substring-no-properties (point-min) (point-max)))) |
| 1253 | (while (string-match "^\\([0-9]+\\):" loglines) | 1257 | (while (string-match "^\\([0-9]+\\):" loglines) |