mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(help): New alias.

Browse Source 
(help-for-help): Mention help character.
(help-quit): New command.
(help-map): Bind `q'.
This commit is contained in:
Richard M. Stallman 1994-03-30 01:43:37 +00:00
parent 5ef470be66
commit 2fc9d9f462
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/help.el
View File

@ -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 @@ of the key sequence that ran this command."
(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