comparison lisp/startup.el @ 73703:b99c559d6365

(init-file-had-error): Add doc string. (fancy-splash-text, fancy-splash-head, fancy-splash-tail): Use fixed-width font for keyboard key descriptions.

73702:2bd04d2f629a

(defvar emacs-basic-display nil)

(defvar init-file-debug nil)

(defvar init-file-had-error nil)

(defvar normal-top-level-add-subdirs-inode-list nil)

(defvar no-blinking-cursor nil)

Copying Conditions\tConditions for redistributing and changing Emacs
Getting New Versions\tHow to obtain the latest version of Emacs
More Manuals / Ordering Manuals       Buying printed manuals from the FSF\n")
  (:face (variable-pitch :weight bold)
	 "Useful File menu items:\n"
	 :face variable-pitch "\
Exit Emacs\t\t(Or type Control-x followed by Control-c)
Recover Crashed Session\tRecover files you were editing before a crash

  (insert "\n")
  (fancy-splash-insert
   :face 'variable-pitch
   "You can do basic editing with the menu bar and scroll bar \
using the mouse.\n\n")
  (if fancy-splash-outer-buffer
      (fancy-splash-insert
       :face 'variable-pitch
       (substitute-command-keys
	(concat
	 "Type \\[recenter] to begin editing"
	 (if (equal (buffer-name fancy-splash-outer-buffer)
		    "*scratch*")
	     ".\n"
	   " your file.\n"))))))

(defun fancy-splash-tail ()
  "Insert the tail part of the splash screen into the current buffer."
  (let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
		"cyan" "darkblue")))

		  (regexp-quote (file-name-nondirectory
				 auto-save-list-file-prefix)))
	  t)
	 (fancy-splash-insert :face '(variable-pitch :foreground "red")
			      "\n\nIf an Emacs session crashed recently, "
			      "type Meta-x recover-session RET\nto recover"
			      " the files you were editing."))))

(defun fancy-splash-screens-1 (buffer)
  "Timer function displaying a splash screen."
  (when (> (float-time) fancy-splash-stop-time)

73703:b99c559d6365

(defvar emacs-basic-display nil)

(defvar init-file-debug nil)

(defvar init-file-had-error nil
  "Non-nil if there was an error loading the user's init file.")

(defvar normal-top-level-add-subdirs-inode-list nil)

(defvar no-blinking-cursor nil)

Copying Conditions\tConditions for redistributing and changing Emacs
Getting New Versions\tHow to obtain the latest version of Emacs
More Manuals / Ordering Manuals       Buying printed manuals from the FSF\n")
  (:face (variable-pitch :weight bold)
	 "Useful File menu items:\n"
	 :face variable-pitch
	 "Exit Emacs\t\t(Or type "
	 :face default
	 "Control-x"
	 :face variable-pitch
	 " followed by "
	 :face default
	 "Control-c"
	 :face variable-pitch
	 ")
Recover Crashed Session\tRecover files you were editing before a crash

  (insert "\n")
  (fancy-splash-insert
   :face 'variable-pitch
   "You can do basic editing with the menu bar and scroll bar \
using the mouse.\n\n")
  (when fancy-splash-outer-buffer
    (fancy-splash-insert
     :face 'variable-pitch
     "Type "
     :face 'default
     (substitute-command-keys
      "\\[recenter]")
     :face 'variable-pitch
     " to begin editing"
     (if (equal (buffer-name fancy-splash-outer-buffer)
		"*scratch*")
	 ".\n"
       " your file.\n"))))

(defun fancy-splash-tail ()
  "Insert the tail part of the splash screen into the current buffer."
  (let ((fg (if (eq (frame-parameter nil 'background-mode) 'dark)
		"cyan" "darkblue")))

		  (regexp-quote (file-name-nondirectory
				 auto-save-list-file-prefix)))
	  t)
	 (fancy-splash-insert :face '(variable-pitch :foreground "red")
			      "\n\nIf an Emacs session crashed recently, "
			      "type "
			      :face '(fixed-pitch :foreground "red")
			      "Meta-x recover-session RET"
			      :face '(variable-pitch :foreground "red")
			      "\nto recover"
			      " the files you were editing."))))

(defun fancy-splash-screens-1 (buffer)
  "Timer function displaying a splash screen."
  (when (> (float-time) fancy-splash-stop-time)