[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 469e6bc: Honor 'vc-bzr-log-switches' in 'vc-bzr-rev
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 469e6bc: Honor 'vc-bzr-log-switches' in 'vc-bzr-revision-table' |
Date: |
Sat, 8 Dec 2018 04:40:48 -0500 (EST) |
branch: master
commit 469e6bc57babf53315229bc2d8bb07dde8c3195f
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
Honor 'vc-bzr-log-switches' in 'vc-bzr-revision-table'
* lisp/vc/vc-bzr.el (vc-bzr-revision-table): Honor
'vc-bzr-log-switches'.
---
lisp/vc/vc-bzr.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index e6d636f..d5ed590 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 469e6bc: Honor 'vc-bzr-log-switches' in 'vc-bzr-revision-table',
Eli Zaretskii <=