From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 15 Sep 2006 00:56:14 +0000 (+0000)
Subject: (fancy-splash-text): Change text to improve alignment.
X-Git-Tag: emacs-pretest-22.0.90~555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81a0b042c950e35a71e59bd5399f7eabdd633c7c;p=emacs.git

(fancy-splash-text): Change text to improve alignment.
(fancy-splash-screens): Don't set non-standard tab width.
Bind cursor-type temporarily, and make it easy to patch to
preserve the splash buffer.
(normal-splash-screen, fancy-splash-tail): Spell out "Meta-x".
(fancy-splash-screens): Display echo-area message explicitly.
Don't set fancy-splash-help-echo.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index c1adf617aa4..c3d0fc1a765 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1137,8 +1137,8 @@ regardless of the value of this variable."
                 "\n")))
            :face variable-pitch "\
 Emacs FAQ\tFrequently asked questions and answers
-Read the Emacs Manual\tView the Emacs manual using Info
-\(Non)Warranty\tGNU Emacs comes with "
+View Emacs Manual\tView the Emacs manual using Info
+Absence of Warranty\tGNU Emacs comes with "
 	   :face (variable-pitch :slant oblique)
 	   "ABSOLUTELY NO WARRANTY\n"
 	   :face variable-pitch
@@ -1149,7 +1149,7 @@ 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(Or type Control-x followed by Control-c)
+Exit Emacs\t\t(Or type Control-x followed by Control-c)
 Recover Crashed Session\tRecover files you were editing before a crash
 
 
@@ -1300,7 +1300,7 @@ using the mouse.\n\n")
 	  t)
 	 (fancy-splash-insert :face '(variable-pitch :foreground "red")
 			      "\n\nIf an Emacs session crashed recently, "
-			      "type M-x recover-session RET\nto recover"
+			      "type Meta-x recover-session RET\nto recover"
 			      " the files you were editing."))))
 
 (defun fancy-splash-screens-1 (buffer)
@@ -1345,7 +1345,6 @@ mouse."
 
 (defun fancy-splash-screens (&optional hide-on-input)
   "Display fancy splash screens when Emacs starts."
-  (setq fancy-splash-help-echo (startup-echo-area-message))
   (if hide-on-input
       (let ((old-hourglass display-hourglass)
 	    (fancy-splash-outer-buffer (current-buffer))
@@ -1357,18 +1356,17 @@ mouse."
 	(save-selected-window
 	  (select-frame frame)
 	  (switch-to-buffer "GNU Emacs")
-	  (setq tab-width 20)
 	  (setq splash-buffer (current-buffer))
 	  (catch 'stop-splashing
 	    (unwind-protect
-		(let ((map (make-sparse-keymap)))
+		(let ((map (make-sparse-keymap))
+		      (cursor-type nil))
 		  (use-local-map map)
 		  (define-key map [switch-frame] 'ignore)
 		  (define-key map [t] 'fancy-splash-default-action)
 		  (define-key map [mouse-movement] 'ignore)
 		  (define-key map [mode-line t] 'ignore)
-		  (setq cursor-type nil
-			display-hourglass nil
+		  (setq display-hourglass nil
 			minor-mode-map-alist nil
 			emulation-mode-map-alists nil
 			buffer-undo-list t
@@ -1379,12 +1377,17 @@ mouse."
 			timer (run-with-timer 0 fancy-splash-delay
 					      #'fancy-splash-screens-1
 					      splash-buffer))
+		  (message "%s" (startup-echo-area-message))
 		  (recursive-edit))
 	      (cancel-timer timer)
 	      (setq display-hourglass old-hourglass
 		    minor-mode-map-alist old-minor-mode-map-alist
 		    emulation-mode-map-alists old-emulation-mode-map-alists)
-	      (kill-buffer splash-buffer)))))
+	      (use-local-map nil)
+	      (switch-to-buffer "*scratch*")
+;;;  Comment out the next line in order to see the splash buffer exactly as it was.
+	      (kill-buffer splash-buffer)
+	      ))))
     ;; If hide-on-input is nil, don't hide the buffer on input.
     (if (or (window-minibuffer-p)
 	    (window-dedicated-p (selected-window)))
@@ -1580,7 +1583,7 @@ Type \\[describe-distribution] for information on getting the latest version."))
                                        auto-save-list-file-prefix)))
                 t)
                (insert "\n\nIf an Emacs session crashed recently, "
-                       "type M-x recover-session RET\nto recover"
+                       "type Meta-x recover-session RET\nto recover"
                        " the files you were editing."))
 
           ;; Display the input that we set up in the buffer.