diff options
| author | Gerd Moellmann <[email protected]> | 2001-02-26 14:17:29 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2001-02-26 14:17:29 +0000 |
| commit | 01459648745dd3aaa3c545d05047bce479ae4500 (patch) | |
| tree | fbb1d112343b5cd10741a563345a9ac8818ad565 /lisp | |
| parent | 38790755118ec9206667ff633c6402abb41863a4 (diff) | |
(command-line-1): Add info about ordering manuals
to the not so fancy splash screens.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/startup.el | 7 |
2 files changed, 14 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a4dcd25aa0..4ebc0b76d1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,14 @@ +2001-02-26 Gerd Moellmann <[email protected]> + + * help.el (view-order-manuals): Use goto-address. + + * startup.el (command-line-1): Add info about ordering manuals + to the not so fancy splash screens. + 2001-02-26 Andre Spiegel <[email protected]> - * vc.el (vc-default-workfile-unchanged-p, - vc-default-latest-on-branch-p): Add missing BACKEND argument. + * vc.el (vc-default-workfile-unchanged-p) + (vc-default-latest-on-branch-p): Add missing BACKEND argument. 2001-02-26 Gerd Moellmann <[email protected]> diff --git a/lisp/startup.el b/lisp/startup.el index 435c4ab3bc..b04fd1e65d 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1310,6 +1310,7 @@ Emacs FAQ Frequently asked questions and answers \(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 @@ Copyright (C) 2000 Free Software Foundation, Inc."))) (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 |