From 2fc9d9f46216e0aeb6a2c0a07c1ad740e4f2b31c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 30 Mar 1994 01:43:37 +0000 Subject: [PATCH] (help): New alias. (help-for-help): Mention help character. (help-quit): New command. (help-map): Bind `q'. --- lisp/help.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/help.el b/lisp/help.el index acecb29bc07..82a158f699a 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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 \\\\[scroll-up] or \\[scroll-down] to scroll through this text.) +\(Use \\\\[scroll-up] or \\[scroll-down] to scroll through this text. +Type \\\\[help-quit] to exit the Help command.) a command-apropos. Give a substring, and see a list of commands (functions interactively callable) that contain