* startup.el (fancy-startup-tail): Add a clickable link.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b71cc72baf27c22105599c02a693181421ee07d8..498a2ec6fa0937b3814bf65590a712c11b217dcc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,16 @@
+2012-12-01  Kim F. Storm  <storm@cua.dk>
+
+       * startup.el (fancy-startup-tail): Add a clickable link
+       (Bug#2176).
+
 2012-12-01  Chong Yidong  <cyd@gnu.org>
 
        * startup.el (fancy-startup-tail): Improve the message about
        auto-save files (Bug#2176).
 
+       * files.el (recover-session): Improve the descriptive message, and
+       use substitute-command-keys.
+
 2012-12-01  Glenn Morris  <rgm@gnu.org>
 
        * ido.el (ido-file-internal):

diff --git a/lisp/startup.el b/lisp/startup.el
index 03181a79b1572e127d854c3ccce7f79772f4f654..ec6d45a294df551f901e4bef5530c8d043610a82 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1582,9 +1582,10 @@ a face or button specification."
                                    "\nAn auto-save file list was found.  "
                                  "\nAuto-save file lists were found.  ")
                                "If an Emacs session crashed recently,\ntype "
-                               :face '(fixed-pitch font-lock-comment-face)
-                               "M-x recover-session RET"
-                               :face '(variable-pitch font-lock-comment-face)
+                               :link `("M-x recover-session RET"
+                                       ,(lambda (_button)
+                                          (call-interactively
+                                           'recover-session)))
                                " to recover the files you were editing."))))
 
   (when concise