diff options
| -rw-r--r-- | lisp/startup.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 449c6d9d145..65be36abc26 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -732,16 +732,17 @@ Type \\[info] to enter Info, which you can use to read GNU documentation." | |||
| 732 | (if window-system | 732 | (if window-system |
| 733 | (insert "\n | 733 | (insert "\n |
| 734 | C-mouse-3 (third mouse button, with Control) gets a mode-specific menu.")) | 734 | C-mouse-3 (third mouse button, with Control) gets a mode-specific menu.")) |
| 735 | (if (directory-files (file-name-directory auto-save-list-file-prefix) | 735 | (and auto-save-list-file-prefix |
| 736 | nil | 736 | (directory-files |
| 737 | (concat "\\`" | 737 | (file-name-directory auto-save-list-file-prefix) |
| 738 | (regexp-quote | 738 | nil |
| 739 | (file-name-nondirectory | 739 | (concat "\\`" |
| 740 | auto-save-list-file-prefix))) | 740 | (regexp-quote (file-name-nondirectory |
| 741 | t) | 741 | auto-save-list-file-prefix))) |
| 742 | (insert "\n\nIf an Emacs session crashed recently,\n" | 742 | t) |
| 743 | "type M-x recover-session RET to recover" | 743 | (insert "\n\nIf an Emacs session crashed recently,\n" |
| 744 | " the files you were editing.")) | 744 | "type M-x recover-session RET to recover" |
| 745 | " the files you were editing.")) | ||
| 745 | 746 | ||
| 746 | (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) | 747 | (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) |
| 747 | (eq (key-binding "\C-h\C-d") 'describe-distribution) | 748 | (eq (key-binding "\C-h\C-d") 'describe-distribution) |