comparison lisp/startup.el @ 90147:e1fbb019c538

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-39 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 258-271) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 66) - Update from CVS

90146:a4445dd2a017

  ;; Under X Window, this creates the X frame and deletes the terminal frame.
  (when (fboundp 'frame-initialize)
    (frame-initialize))

  ;; Turn off blinking cursor if so specified in X resources.  This is here
  ;; only because all other settings of no-blinking-cursor is here.
  (unless (or noninteractive
	      emacs-basic-display
	      (and (memq window-system '(x w32 mac))
		   (not (member (x-get-resource "cursorBlink" "CursorBlink")
				'("off" "false")))))

  ;; Can't do this init in defcustom because the relevant variables
  ;; are not set.
  (custom-reevaluate-setting 'blink-cursor-mode)
  (custom-reevaluate-setting 'normal-erase-is-backspace)

  (unless (or noninteractive
	      emacs-basic-display
              (not (display-graphic-p))
              (not (fboundp 'x-show-tip)))
    (tooltip-mode 1))

  ;; If you change the code below, you need to also change the
  ;; corresponding code in the xterm-mouse-mode defcustom.  The two need
  ;; to be equivalent under all conditions, or Custom will get confused.
  (unless (or noninteractive
	      window-system)
    (let ((term (getenv "TERM")))
      (and term
	   (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" term)
	   (xterm-mouse-mode 1))))

  ;; Register default TTY colors for the case the terminal hasn't a
  ;; terminal init file.
  (unless (memq window-system '(x w32))
    ;; We do this regardles of whether the terminal supports colors

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

90147:e1fbb019c538

  ;; Under X Window, this creates the X frame and deletes the terminal frame.
  (when (fboundp 'frame-initialize)
    (frame-initialize))

  ;; Turn off blinking cursor if so specified in X resources.  This is here
  ;; only because all other settings of no-blinking-cursor are here.
  (unless (or noninteractive
	      emacs-basic-display
	      (and (memq window-system '(x w32 mac))
		   (not (member (x-get-resource "cursorBlink" "CursorBlink")
				'("off" "false")))))

  ;; Can't do this init in defcustom because the relevant variables
  ;; are not set.
  (custom-reevaluate-setting 'blink-cursor-mode)
  (custom-reevaluate-setting 'normal-erase-is-backspace)

  ;; If you change the code below, you need to also change the
  ;; corresponding code in the tooltip-mode defcustom.  The two need
  ;; to be equivalent under all conditions, or Custom will get confused.
  (unless (or noninteractive
	      emacs-basic-display
              (not (display-graphic-p))
              (not (fboundp 'x-show-tip)))
    (tooltip-mode 1))

  ;; Register default TTY colors for the case the terminal hasn't a
  ;; terminal init file.
  (unless (memq window-system '(x w32))
    ;; We do this regardles of whether the terminal supports colors

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