bug#2176: 2176 proposal

[Zachary Kanfer <zkanfer@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1854 bytes --]

This patch makes the line include a link to run 'recover-session .
It also rephrases the text. The text used to be "If an Emacs session crashed
recently, type Meta-x recover-session RET \nto recover the files you were
editing." The rephrased text is "If Emacs crashed recently, you may recover
your previous session."
The text no longer tells you how to run the command (i.e., with Meta-x
recover-session RET). This is in line with the other commands on the page
(e.g., Emacs Tutorial, Open a File).
-Zachary Kanfer


=== modified file 'lisp/startup.el'
*** lisp/startup.el    2011-07-14 12:57:06 +0000
--- lisp/startup.el    2011-07-25 04:36:03 +0000
*************** a face or button specification."
*** 1574,1586 ****
                     auto-save-list-file-prefix)))
      t)
         (fancy-splash-insert :face '(variable-pitch font-lock-comment-face)
!                 "\nIf an Emacs session crashed recently, "
!                 "type "
!                 :face '(fixed-pitch font-lock-comment-face)
!                 "Meta-x recover-session RET"
                  :face '(variable-pitch font-lock-comment-face)
!                 "\nto recover"
!                 " the files you were editing."))

    (when concise
      (fancy-splash-insert
--- 1574,1585 ----
                     auto-save-list-file-prefix)))
      t)
         (fancy-splash-insert :face '(variable-pitch font-lock-comment-face)
!                 "\nIf Emacs crashed recently, you may "
!                             :link `("recover your previous session"
!                                     ,(lambda (_button) (call-interactively
'recover-session))
!                                     "Recover files from a previous
session")
                  :face '(variable-pitch font-lock-comment-face)
!                             "."))

    (when concise
      (fancy-splash-insert

[-- Attachment #2: Type: text/html, Size: 2166 bytes --]