From: Kim F. Storm <storm@cua.dk>
Date: Sat, 1 Dec 2012 02:08:30 +0000 (+0800)
Subject: * startup.el (fancy-startup-tail): Add a clickable link.
X-Git-Tag: emacs-24.3.90~173^2~9^2~113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0b6ae635dc3ef36c6692b7ef869e09111291542;p=emacs.git

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

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