Mercurial > emacs
changeset 6580:4c20c6b1d2c2
(help): New alias.
(help-for-help): Mention help character.
(help-quit): New command.
(help-map): Bind `q'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 30 Mar 1994 01:43:37 +0000 |
| parents | 51a7a67cd4c2 |
| children | 3a0db3b2366c |
| files | lisp/help.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Wed Mar 30 01:43:08 1994 +0000 +++ b/lisp/help.el Wed Mar 30 01:43:37 1994 +0000 @@ -77,6 +77,12 @@ (define-key help-map "v" 'describe-variable) +(define-key help-map "q" 'help-quit) + +(defun help-quit () + (interactive) + nil) + (defun help-with-tutorial () "Select the Emacs learn-by-doing tutorial." (interactive) @@ -259,10 +265,12 @@ (insert "\n"))) (print-help-return-message))) +(defalias 'help 'help-for-help) (make-help-screen help-for-help "a b c f C-f i k C-k l m n p s t v w C-c C-d C-n C-w, or ? for more help:" "You have typed \\[help-command], the help character. Type a Help option: -\(Use \\<help-map>\\[scroll-up] or \\[scroll-down] to scroll through this text.) +\(Use \\<help-map>\\[scroll-up] or \\[scroll-down] to scroll through this text. +Type \\<help-map>\\[help-quit] to exit the Help command.) a command-apropos. Give a substring, and see a list of commands (functions interactively callable) that contain