summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2022-10-16 11:52:56 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-10-16 11:53:03 +0200
commit0164d5e71ddc05108834d92d333959397d4f6f46 (patch)
tree5764905df19bc87b9ce514b6342f65a0a16eb25a
parentcb968b48cbe480364d39476e4d1c6da802e304f0 (diff)
downloademacs-0164d5e71ddc05108834d92d333959397d4f6f46.tar.gz
Clear misleading message in help-quit-or-quick
* lisp/help.el (help-quit-or-quick): Clear misleading message (bug#58542).
-rw-r--r--lisp/help.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el
index 3f5e57d7d5f..1cfd044db8c 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -259,7 +259,10 @@ buffer.")
;; help command loop.
(help-quit))
((and-let* ((window (get-buffer-window "*Quick Help*")))
- (quit-window t window)))
+ (quit-window t window)
+ ;; Clear the message we may have gotten from `C-h' and then
+ ;; waiting before hitting `q'.
+ (message "")))
((help-quick))))
(defvar help-return-method nil