From 5b309ebfe67045d5b59217f77d3160fa1c68b785 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 5 Nov 2006 15:19:55 +0000
Subject: [PATCH] (init-file-had-error): Add doc string. (fancy-splash-text,
 fancy-splash-head, fancy-splash-tail): Use fixed-width font for keyboard key
 descriptions.

---
 lisp/startup.el | 44 ++++++++++++++++++++++++++++++--------------
 1 file changed, 30 insertions(+), 14 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 664fd285754..91491ac25e2 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -283,7 +283,8 @@ from being initialized."
 
 (defvar init-file-debug nil)
 
-(defvar init-file-had-error 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)
 
@@ -1149,8 +1150,16 @@ 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)
+	 :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
 
 
@@ -1265,16 +1274,19 @@ where FACE is a valid face specification, as it can be used with
    :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"))))))
+  (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."
@@ -1301,7 +1313,11 @@ using the mouse.\n\n")
 	  t)
 	 (fancy-splash-insert :face '(variable-pitch :foreground "red")
 			      "\n\nIf an Emacs session crashed recently, "
-			      "type Meta-x recover-session RET\nto recover"
+			      "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)
-- 
2.39.2