From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 8 Apr 2016 18:02:24 +0000 (-0400)
Subject: * lisp/subr.el (read-key): Don't let the prompt linger (bug#22714)
X-Git-Tag: emacs-25.0.93~55
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/5c288909b96452ed5d01befc8b624e94511620ed?hp=a75b9a6f2276a15a155660c99f7ff654190b7e9a

* lisp/subr.el (read-key): Don't let the prompt linger (bug#22714)
---

diff --git a/lisp/subr.el b/lisp/subr.el
index dde7691623..cbcc27baad 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2086,6 +2086,10 @@ some sort of escape sequence, the ambiguity is resolved via `read-key-delay'."
                 (aref keys 1)
               key)))
       (cancel-timer timer)
+      ;; For some reason, `read-key(-sequence)' leaves the prompt in the echo
+      ;; area, whereas `read-event' seems to empty it just before returning
+      ;; (bug#22714).  So, let's mimick the behavior of `read-event'.
+      (message nil)
       (use-global-map old-global-map))))
 
 (defvar read-passwd-map