Re: Splash screen ambiguity

[Richard Stallman]

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)