Commit 2fc9d9f4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(help): New alias.

(help-for-help): Mention help character.
(help-quit): New command.
(help-map): Bind `q'.
parent 5ef470be
...@@ -77,6 +77,12 @@ ...@@ -77,6 +77,12 @@
(define-key help-map "v" 'describe-variable) (define-key help-map "v" 'describe-variable)
(define-key help-map "q" 'help-quit)
(defun help-quit ()
(interactive)
nil)
(defun help-with-tutorial () (defun help-with-tutorial ()
"Select the Emacs learn-by-doing tutorial." "Select the Emacs learn-by-doing tutorial."
(interactive) (interactive)
...@@ -259,10 +265,12 @@ of the key sequence that ran this command." ...@@ -259,10 +265,12 @@ of the key sequence that ran this command."
(insert "\n"))) (insert "\n")))
(print-help-return-message))) (print-help-return-message)))
(defalias 'help 'help-for-help)
(make-help-screen 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:" "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: "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 a command-apropos. Give a substring, and see a list of commands
(functions interactively callable) that contain (functions interactively callable) that contain
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment