Mercurial > emacs
changeset 36399:16eb55f253f8
(command-line-1): Add info about ordering manuals
to the not so fancy splash screens.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 26 Feb 2001 14:14:18 +0000 |
| parents | f20c9b522f1d |
| children | 0c6e5e0842a3 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Mon Feb 26 14:13:35 2001 +0000 +++ b/lisp/startup.el Mon Feb 26 14:14:18 2001 +0000 @@ -1310,6 +1310,7 @@ \(Non)Warranty GNU Emacs comes with ABSOLUTELY NO WARRANTY Copying Conditions Conditions for redistributing and changing Emacs. Getting New Versions How to obtain the latest version of Emacs. +Ordering Manuals How to order manuals from the FSF. ") (insert "\n\n" (emacs-version) " @@ -1326,14 +1327,16 @@ (insert " Get help C-h (Hold down CTRL and press h) Undo changes C-x u Exit Emacs C-x C-c -Get a tutorial C-h t Use Info to read docs C-h i") +Get a tutorial C-h t Use Info to read docs C-h i +Ordering manuals C-h RET") (insert (substitute-command-keys (format "\n Get help %s Undo changes \\[advertised-undo] Exit Emacs \\[save-buffers-kill-emacs] Get a tutorial \\[help-with-tutorial] -Use Info to read docs \\[info]" +Use Info to read docs \\[info] +Ordering manuals \\[view-order-manuals]" (let ((where (where-is-internal 'help-command nil t))) (if where