Mercurial > emacs

changeset 61600:3a5e293553a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-splash-max-time): Just 30 seconds. (fancy-splash-delay): Just 7. (fancy-splash-screens): No time limit other than fancy-splash-max-time.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Apr 2005 16:00:20 +0000
parents 4cb17d270cf3
children aaa0bead8bc5
files lisp/startup.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Sun Apr 17 15:57:00 2005 +0000
+++ b/lisp/startup.el	Sun Apr 17 16:00:20 2005 +0000
@@ -1085,15 +1085,15 @@
   :group 'initialization)
 
 
-(defcustom fancy-splash-delay 10
+(defcustom fancy-splash-delay 7
   "*Delay in seconds between splash screens."
   :group 'fancy-splash-screen
   :type 'integer)
 
 
-(defcustom fancy-splash-max-time 60
+(defcustom fancy-splash-max-time 30
   "*Show splash screens for at most this number of seconds.
-Values less than 60 seconds are ignored."
+Values less than twice `fancy-splash-delay' are ignored."
   :group 'fancy-splash-screen
   :type 'integer)
 
@@ -1271,7 +1271,7 @@
 		    mode-line-format (propertize "---- %b %-"
 						 'face '(:weight bold))
 		    fancy-splash-stop-time (+ (float-time)
-					      (max 60 fancy-splash-max-time))
+					      fancy-splash-max-time)
 		    timer (run-with-timer 0 fancy-splash-delay
 					  #'fancy-splash-screens-1
 					  splash-buffer))