From: Steven De Herdt <steven.deherdt@gmail.com>
Date: Sat, 24 Nov 2018 22:57:57 +0000 (+0100)
Subject: Honor 'vc-bzr-log-switches' in 'vc-bzr-expanded-log-entry'
X-Git-Tag: emacs-27.0.90~4026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51170f34acb8f5c420f728f3e755be2f8961ef11;p=emacs.git

Honor 'vc-bzr-log-switches' in 'vc-bzr-expanded-log-entry'

* lisp/vc/vc-bzr.el (vc-bzr-expanded-log-entry): Honor
'vc-bzr-log-switches'.  (Bug#33494)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 8e1a6bec203..e6d636f23c5 100644
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -782,7 +782,11 @@ If LIMIT is non-nil, show no more than this many entries."
 (defun vc-bzr-expanded-log-entry (revision)
   (with-temp-buffer
     (apply 'vc-bzr-command "log" t nil nil
-	   (list "--long" (format "-r%s" revision)))
+           (append
+            (list "--long" (format "-r%s" revision))
+            (if (stringp vc-bzr-log-switches)
+                (list vc-bzr-log-switches)
+              vc-bzr-log-switches)))
     (goto-char (point-min))
     (when (looking-at "^-+\n")
       ;; Indent the expanded log entry.