[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc.el |
Date: |
Thu, 03 Dec 2009 19:12:56 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/12/03 19:12:55
Modified files:
lisp : ChangeLog vc.el
Log message:
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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16815&r2=1.16816
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc.el?cvsroot=emacs&r1=1.744&r2=1.745
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16815
retrieving revision 1.16816
diff -u -b -r1.16815 -r1.16816
--- ChangeLog 3 Dec 2009 17:14:33 -0000 1.16815
+++ ChangeLog 3 Dec 2009 19:12:52 -0000 1.16816
@@ -1,3 +1,10 @@
+2009-12-03 Dan Nicolaescu <address@hidden>
+
+ 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 <address@hidden>
* progmodes/idlwave.el (class): Restore still useful declaration.
Index: vc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc.el,v
retrieving revision 1.744
retrieving revision 1.745
diff -u -b -r1.744 -r1.745
--- vc.el 3 Dec 2009 03:11:17 -0000 1.744
+++ vc.el 3 Dec 2009 19:12:55 -0000 1.745
@@ -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))