From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 8 Dec 2018 09:39:35 +0000 (+0200)
Subject: Honor 'vc-bzr-log-switches' in 'vc-bzr-revision-table'
X-Git-Tag: emacs-27.0.90~4025
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=469e6bc57babf53315229bc2d8bb07dde8c3195f;p=emacs.git

Honor 'vc-bzr-log-switches' in 'vc-bzr-revision-table'

* lisp/vc/vc-bzr.el (vc-bzr-revision-table): Honor
'vc-bzr-log-switches'.
---

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)