comparison lisp/startup.el @ 61600:3a5e293553a1

(fancy-splash-max-time): Just 30 seconds. (fancy-splash-delay): Just 7. (fancy-splash-screens): No time limit other than fancy-splash-max-time.

61599:4cb17d270cf3

  "Fancy splash screen when Emacs starts."
  :version "21.1"
  :group 'initialization)


(defcustom fancy-splash-delay 10
  "*Delay in seconds between splash screens."
  :group 'fancy-splash-screen
  :type 'integer)


(defcustom fancy-splash-max-time 60
  "*Show splash screens for at most this number of seconds.
Values less than 60 seconds are ignored."
  :group 'fancy-splash-screen
  :type 'integer)


(defcustom fancy-splash-image nil

		    minor-mode-map-alist nil
		    buffer-undo-list t
		    mode-line-format (propertize "---- %b %-"
						 'face '(:weight bold))
		    fancy-splash-stop-time (+ (float-time)
					      (max 60 fancy-splash-max-time))
		    timer (run-with-timer 0 fancy-splash-delay
					  #'fancy-splash-screens-1
					  splash-buffer))
	      (recursive-edit))
	  (cancel-timer timer)

61600:3a5e293553a1

  "Fancy splash screen when Emacs starts."
  :version "21.1"
  :group 'initialization)


(defcustom fancy-splash-delay 7
  "*Delay in seconds between splash screens."
  :group 'fancy-splash-screen
  :type 'integer)


(defcustom fancy-splash-max-time 30
  "*Show splash screens for at most this number of seconds.
Values less than twice `fancy-splash-delay' are ignored."
  :group 'fancy-splash-screen
  :type 'integer)


(defcustom fancy-splash-image nil

		    minor-mode-map-alist nil
		    buffer-undo-list t
		    mode-line-format (propertize "---- %b %-"
						 'face '(:weight bold))
		    fancy-splash-stop-time (+ (float-time)
					      fancy-splash-max-time)
		    timer (run-with-timer 0 fancy-splash-delay
					  #'fancy-splash-screens-1
					  splash-buffer))
	      (recursive-edit))
	  (cancel-timer timer)