diff options
| author | Karl Heuer | 1996-02-14 04:26:43 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-02-14 04:26:43 +0000 |
| commit | 95127745f8a44186204340bdaeb6852a8d0cca85 (patch) | |
| tree | 0c6aba696965e635f2c4046214984cb0e5aba5be | |
| parent | 09d13f4cba2214c89b792dcf4acc114e346d1cc7 (diff) | |
| download | emacs-95127745f8a44186204340bdaeb6852a8d0cca85.tar.gz emacs-95127745f8a44186204340bdaeb6852a8d0cca85.zip | |
(command-line-1): Don't explain recover-session if
auto-save-list-file-prefix is nil.
| -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) |