aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/vc-bzr.el11
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4e9696ab8b..f6842769e69 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12009-12-03 Dan Nicolaescu <dann@ics.uci.edu>
2
3 * vc-bzr.el (vc-bzr-print-log): Deal with nil arguments better.
4
12009-12-03 Stefan Monnier <monnier@iro.umontreal.ca> 52009-12-03 Stefan Monnier <monnier@iro.umontreal.ca>
2 6
3 * textmodes/bibtex.el (bibtex-complete-internal): 7 * textmodes/bibtex.el (bibtex-complete-internal):
diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 84153a29eb0..9f554b5bd92 100644
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -493,11 +493,12 @@ REV non-nil gets an error."
493 ;; way of getting the above regexps working. 493 ;; way of getting the above regexps working.
494 (with-current-buffer buffer 494 (with-current-buffer buffer
495 (apply 'vc-bzr-command "log" buffer 'async files 495 (apply 'vc-bzr-command "log" buffer 'async files
496 (when shortlog "--short") 496 (append
497 (when limit (list "-l" (format "%s" limit))) 497 (when shortlog '("--short"))
498 (if (stringp vc-bzr-log-switches) 498 (when limit (list "-l" (format "%s" limit)))
499 (list vc-bzr-log-switches) 499 (if (stringp vc-bzr-log-switches)
500 vc-bzr-log-switches)))) 500 (list vc-bzr-log-switches)
501 vc-bzr-log-switches)))))
501 502
502(defun vc-bzr-show-log-entry (revision) 503(defun vc-bzr-show-log-entry (revision)
503 "Find entry for patch name REVISION in bzr change log buffer." 504 "Find entry for patch name REVISION in bzr change log buffer."