Mercurial > emacs
comparison lisp/startup.el @ 12764:69dcdd99fd8d
(command-line-1): Mention recover-session if there's a .saves file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Aug 1995 22:29:44 +0000 |
| parents | ed4cc6931e88 |
| children | 20e4ad629f4d |
comparison
equal
deleted
inserted
replaced
| 12763:b8e986069a58 | 12764:69dcdd99fd8d |
|---|---|
| 643 (insert (substitute-command-keys | 643 (insert (substitute-command-keys |
| 644 " | 644 " |
| 645 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details. | 645 GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details. |
| 646 You may give out copies of Emacs; type \\[describe-copying] to see the conditions. | 646 You may give out copies of Emacs; type \\[describe-copying] to see the conditions. |
| 647 Type \\[describe-distribution] for information on getting the latest version."))) | 647 Type \\[describe-distribution] for information on getting the latest version."))) |
| 648 | |
| 649 (if (directory-files "~/" nil "\\`\\.saves-" t) | |
| 650 (insert "\n\nIf an Emacs session crashed recently,\n" | |
| 651 "type M-x recover-session RET to recover" | |
| 652 " the files you were editing.)) | |
| 653 | |
| 648 (set-buffer-modified-p nil) | 654 (set-buffer-modified-p nil) |
| 649 (sit-for 120)) | 655 (sit-for 120)) |
| 650 (save-excursion | 656 (save-excursion |
| 651 ;; In case the Emacs server has already selected | 657 ;; In case the Emacs server has already selected |
| 652 ;; another buffer, erase the one our message is in. | 658 ;; another buffer, erase the one our message is in. |