diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/vc-bzr.el | 11 |
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 @@ | |||
| 1 | 2009-12-03 Dan Nicolaescu <dann@ics.uci.edu> | ||
| 2 | |||
| 3 | * vc-bzr.el (vc-bzr-print-log): Deal with nil arguments better. | ||
| 4 | |||
| 1 | 2009-12-03 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2009-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." |