Mercurial > emacs
changeset 14565:fa33ca883a52
(command-line-1): Don't explain recover-session if
auto-save-list-file-prefix is nil.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 14 Feb 1996 04:26:43 +0000 |
| parents | 7932e133a44b |
| children | 20d4400de24e |
| files | lisp/startup.el |
| diffstat | 1 files changed, 11 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Wed Feb 14 04:09:31 1996 +0000 +++ b/lisp/startup.el Wed Feb 14 04:26:43 1996 +0000 @@ -732,16 +732,17 @@ (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)