# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1259867572 0
# Node ID 065925e07677182d993df2f67896be12819113dc
# Parent  31424b91531abc37c4fc4cee9e9f40a7b2223578
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.

diff -r 31424b91531a -r 065925e07677 lisp/ChangeLog
--- 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.
diff -r 31424b91531a -r 065925e07677 lisp/vc.el
--- 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))