emacs-diffs
[Top][All Lists]
Advanced

[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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]