diff options
author | Eli Zaretskii <eliz@gnu.org> | 2018-12-08 11:39:35 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2018-12-08 11:39:35 +0200 |
commit | 469e6bc57babf53315229bc2d8bb07dde8c3195f (patch) | |
tree | d270039ca95317457515710fef8ec1c63aa45ab4 /lisp/vc | |
parent | 51170f34acb8f5c420f728f3e755be2f8961ef11 (diff) | |
download | emacs-469e6bc57babf53315229bc2d8bb07dde8c3195f.tar.gz |
Honor 'vc-bzr-log-switches' in 'vc-bzr-revision-table'
* lisp/vc/vc-bzr.el (vc-bzr-revision-table): Honor
'vc-bzr-log-switches'.
Diffstat (limited to 'lisp/vc')
-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." (let ((vc-bzr-revisions '()) (default-directory (file-name-directory (car files)))) (with-temp-buffer - (vc-bzr-command "log" t 0 files "--line") + (apply 'vc-bzr-command "log" t 0 files + (append '("--line") + (if (stringp vc-bzr-log-switches) + (list vc-bzr-log-switches) + vc-bzr-log-switches))) (let ((start (point-min)) (loglines (buffer-substring-no-properties (point-min) (point-max)))) (while (string-match "^\\([0-9]+\\):" loglines) |