From: Eli Zaretskii Date: Mon, 17 Nov 2014 17:36:29 +0000 (+0200) Subject: Don't assume "bzr log" uses --long format by default. X-Git-Tag: emacs-24.4.90~202 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67a22c6062fdaff39c27611d21cd5866661f8e15;p=emacs.git Don't assume "bzr log" uses --long format by default. lisp/vc/vc-bzr.el (vc-bzr-print-log, vc-bzr-expanded-log-entry): Don't assume --long is the default for "bzr log", always specify it explicitly, in case the user defined an alias for 'log' that uses some other format. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d47a97f73ec..54df183c92a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2014-11-17 Eli Zaretskii + + * vc/vc-bzr.el (vc-bzr-print-log, vc-bzr-expanded-log-entry): + Don't assume --long is the default for "bzr log", always specify + it explicitly, in case the user defined an alias for 'log' that + uses some other format. + 2014-11-16 Fabián Ezequiel Gallina * progmodes/python.el (python-eldoc--get-doc-at-point): Strip diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 0730a9c72ce..e607f9d8d1a 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el @@ -722,7 +722,7 @@ If LIMIT is non-nil, show no more than this many entries." (with-current-buffer buffer (apply 'vc-bzr-command "log" buffer 'async files (append - (when shortlog '("--line")) + (if shortlog '("--line") '("--long")) ;; The extra complications here when start-revision and limit ;; are set are due to bzr log's --forward argument, which ;; could be enabled via an alias in bazaar.conf. @@ -757,7 +757,7 @@ 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 (format "-r%s" revision))) + (list "--long" (format "-r%s" revision))) (goto-char (point-min)) (when (looking-at "^-+\n") ;; Indent the expanded log entry.