mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Limit the number of log entries displayed by default.

Browse Source 
* 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.
This commit is contained in:
Dan Nicolaescu 2009-12-03 19:12:52 +00:00
parent 84b318269c
commit 46e5c897b4
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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.

6
lisp/vc.el
View File

@ -1890,7 +1890,7 @@ Not all VC backends support short logs!")
(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 @@ If WORKING-REVISION is non-nil, leave the point at that revision."
(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 @@ If WORKING-REVISION is non-nil, leave the point at that revision."
(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))