(make-help-screen): Clear the prompt when we get a real command.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 55fc7a126fee7291052f4cecd3b8e7b2bf869d55..8ae3876cef31ff32c9430c0d179cd5476cecad62 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -152,6 +152,8 @@ and then returns."
                                                       (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)