[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 5c28890: * lisp/subr.el (read-key): Don't let the
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs-25 5c28890: * lisp/subr.el (read-key): Don't let the prompt linger (bug#22714) |
Date: |
Fri, 08 Apr 2016 18:02:29 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 5c28890: * lisp/subr.el (read-key): Don't let the prompt linger (bug#22714),
Stefan Monnier <=