Mercurial > emacs
diff lisp/vc.el @ 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 | 09d0cce6cdd3 |
children | 6e0f1038bc44 |
line wrap: on
line diff
--- 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))