Mercurial > emacs

comparison lisp/vc-bzr.el @ 106386:d1166d927ca2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-bzr-print-log): Deal with nil arguments better.
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 03 Dec 2009 07:31:15 +0000
parents e90925cbde07
children e01e9655414f
comparison
equal deleted inserted replaced
106385:cd8b405d57c6 106386:d1166d927ca2
491 ;; FIXME: `vc-bzr-command' runs `bzr log' with `LC_MESSAGES=C', so 491 ;; FIXME: `vc-bzr-command' runs `bzr log' with `LC_MESSAGES=C', so
492 ;; the log display may not what the user wants - but I see no other 492 ;; the log display may not what the user wants - but I see no other
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."
504 (goto-char (point-min)) 505 (goto-char (point-min))
505 (when revision 506 (when revision