# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868250895 0
# Node ID 52a3dec2b6cc31d61a34620023bc5d86e0aecf7d
# Parent  7ddb2d92ef169b463257e345686b9682d278a55a
(make-help-screen): Clear the prompt when we get a real command.

diff -r 7ddb2d92ef16 -r 52a3dec2b6cc lisp/help-macro.el
--- a/lisp/help-macro.el	Mon Jul 07 04:08:18 1997 +0000
+++ b/lisp/help-macro.el	Mon Jul 07 04:48:15 1997 +0000
@@ -152,6 +152,8 @@
 						       (point-max))
 						      "" " or Space to scroll")))
 				     char (aref key 0))))))
+		     ;; We don't need the prompt any more.
+		     (message "")
 		     ;; Mouse clicks are not part of the help feature,
 		     ;; so reexecute them in the standard environment.
 		     (if (listp char)