diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-02-14 04:26:43 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-02-14 04:26:43 +0000 |
| commit | 3f0afa34660604b41ed5c66326c9636a6b7363d7 (patch) | |
| tree | 92dc32e3601f6b09198401c5974d617122c00efb /lisp/startup.el | |
| parent | 8e7e39a00f7d35eba9e18304c7a3734bf5855159 (diff) | |
| download | emacs-3f0afa34660604b41ed5c66326c9636a6b7363d7.tar.gz | |
(command-line-1): Don't explain recover-session if
auto-save-list-file-prefix is nil.
Diffstat (limited to 'lisp/startup.el')
| -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." (if window-system (insert "\n C-mouse-3 (third mouse button, with Control) gets a mode-specific menu.")) - (if (directory-files (file-name-directory auto-save-list-file-prefix) - nil - (concat "\\`" - (regexp-quote - (file-name-nondirectory - auto-save-list-file-prefix))) - t) - (insert "\n\nIf an Emacs session crashed recently,\n" - "type M-x recover-session RET to recover" - " the files you were editing.")) + (and auto-save-list-file-prefix + (directory-files + (file-name-directory auto-save-list-file-prefix) + nil + (concat "\\`" + (regexp-quote (file-name-nondirectory + auto-save-list-file-prefix))) + t) + (insert "\n\nIf an Emacs session crashed recently,\n" + "type M-x recover-session RET to recover" + " the files you were editing.")) (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) (eq (key-binding "\C-h\C-d") 'describe-distribution) |