[Emacs-diffs] emacs-25 5c28890: * lisp/subr.el (read-key): Don't let the prompt linger (bug#22714)

[Stefan Monnier]

branch: emacs-25
commit 5c288909b96452ed5d01befc8b624e94511620ed
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/subr.el (read-key): Don't let the prompt linger (bug#22714)
---
 lisp/subr.el |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

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