Mercurial > emacs

comparison lisp/startup.el @ 14565:fa33ca883a52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 fe6846ee5999
children 00ffbbef6304
comparison
equal deleted inserted replaced
14564:7932e133a44b 14565:fa33ca883a52
730 ;; Windows and MSDOS (currently) do not count as 730 ;; Windows and MSDOS (currently) do not count as
731 ;; window systems, but do have mouse support. 731 ;; window systems, but do have mouse support.
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)
748 (eq (key-binding "\C-h\C-w") 'describe-no-warranty)) 749 (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
749 (insert 750 (insert