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 d47a97f73ec01dfa8ff1fa59f29ae4d4c29116e8..54df183c92a4d5d69657b95636862a9f73f96576 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2014-11-17  Eli Zaretskii  <eliz@gnu.org>
+
+       * 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  <fgallina@gnu.org>
 
        * 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 0730a9c72ce3be97a176d3b9f3a166033a51027a..e607f9d8d1afaa9e70028ae7eaa42438b99d8651 100644 (file)
--- 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.