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

2 files changed, 12 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b71cc72baf2..498a2ec6fa0 100644
--- 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 03181a79b15..ec6d45a294d 100644
--- 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