[Emacs-diffs] /srv/bzr/emacs/trunk r111047: * startup.el (fancy-startup-tail): Add a clickable link.

[Chong Yidong]

------------------------------------------------------------
revno: 111047
author: Kim F. Storm <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-12-01 10:08:30 +0800
message:
  * startup.el (fancy-startup-tail): Add a clickable link.
modified:
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-01 01:49:29 +0000
+++ b/lisp/ChangeLog    2012-12-01 02:08:30 +0000
@@ -1,8 +1,16 @@
+2012-12-01  Kim F. Storm  <address@hidden>
+
+       * startup.el (fancy-startup-tail): Add a clickable link
+       (Bug#2176).
+
 2012-12-01  Chong Yidong  <address@hidden>
 
        * 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  <address@hidden>
 
        * ido.el (ido-file-internal):

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2012-12-01 01:49:29 +0000
+++ b/lisp/startup.el   2012-12-01 02:08:30 +0000
@@ -1582,9 +1582,10 @@
                                    "\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