Re: Splash screen ambiguity

[Richard Stallman <rms@gnu.org>]

Does this give good results?

*** startup.el	26 Sep 2006 11:42:20 -0400	1.419
--- startup.el	29 Oct 2006 20:44:23 -0500	
***************
*** 1149,1156 ****
  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
  
  
--- 1149,1164 ----
  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
  
  
***************
*** 1265,1280 ****
     :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."
--- 1273,1291 ----
     :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."
***************
*** 1301,1307 ****
  	  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)
--- 1312,1322 ----
  	  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)