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

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index dde76916230..cbcc27baad1 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