summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-08-03 22:29:44 +0000
committerRichard M. Stallman <rms@gnu.org>1995-08-03 22:29:44 +0000
commit9b4bb75ea92c0f32d5444a494083f8dd2e8847d4 (patch)
tree42117667b14fbf800753af9140eef6bd3d7f9804 /lisp
parent58d84dc2b3b70352093276853cf86b8ba105c2cc (diff)
downloademacs-9b4bb75ea92c0f32d5444a494083f8dd2e8847d4.tar.gz
(command-line-1): Mention recover-session if there's a .saves file.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/startup.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el
index a21a2041c15..0bccb4f4bec 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -645,6 +645,12 @@ Type C-h C-d for information on getting the latest version.")
GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
Type \\[describe-distribution] for information on getting the latest version.")))
+
+ (if (directory-files "~/" nil "\\`\\.saves-" t)
+ (insert "\n\nIf an Emacs session crashed recently,\n"
+ "type M-x recover-session RET to recover"
+ " the files you were editing.))
+
(set-buffer-modified-p nil)
(sit-for 120))
(save-excursion