Mercurial > emacs
changeset 106399:065925e07677
Limit the number of log entries displayed by default.
* vc.el (vc-print-log-internal): Fix check for limit-unsupported.
(vc-print-log, vc-print-root-log): Use vc-log-show-limit when not
using a prefix argument.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 03 Dec 2009 19:12:52 +0000 |
| parents | 31424b91531a |
| children | 18230cebbf17 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 03 19:01:36 2009 +0000 +++ b/lisp/ChangeLog Thu Dec 03 19:12:52 2009 +0000 @@ -1,3 +1,10 @@ +2009-12-03 Dan Nicolaescu <dann@ics.uci.edu> + + Limit the number of log entries displayed by default. + * vc.el (vc-print-log-internal): Fix check for limit-unsupported. + (vc-print-log, vc-print-root-log): Use vc-log-show-limit when not + using a prefix argument. + 2009-12-03 Glenn Morris <rgm@gnu.org> * progmodes/idlwave.el (class): Restore still useful declaration.
--- a/lisp/vc.el Thu Dec 03 19:01:36 2009 +0000 +++ b/lisp/vc.el Thu Dec 03 19:12:52 2009 +0000 @@ -1890,7 +1890,7 @@ (vc-exec-after `(let ((inhibit-read-only t)) - (when (and ,limit (not (eq 'limit-unsupported pl-return))) + (when (and ,limit (not ,(eq 'limit-unsupported pl-return))) (goto-char (point-max)) (widget-create 'push-button :notify (lambda (&rest ignore) @@ -1931,7 +1931,7 @@ (when (<= lim 0) (setq lim nil)) (list rev lim))) (t - (list nil nil)))) + (list nil (when (> vc-log-show-limit 0) vc-log-show-limit))))) (let* ((vc-fileset (vc-deduce-fileset t)) ;FIXME: Why t? --Stef (backend (car vc-fileset)) (files (cadr vc-fileset)) @@ -1952,7 +1952,7 @@ (when (<= lim 0) (setq lim nil)) (list lim))) (t - (list nil)))) + (list (when (> vc-log-show-limit 0) vc-log-show-limit))))) (let ((backend (cond ((derived-mode-p 'vc-dir-mode) vc-dir-backend) ((derived-mode-p 'dired-mode) (vc-responsible-backend default-directory))