From: Juri Linkov Date: Sun, 17 Nov 2019 21:51:55 +0000 (+0200) Subject: * lisp/subr.el (read-char-from-minibuffer, y-or-n-p): Remove discard-input. X-Git-Tag: emacs-27.0.90~583 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e4e5508582b1b5a2e738f4490400f2d78a5f343;p=emacs.git * lisp/subr.el (read-char-from-minibuffer, y-or-n-p): Remove discard-input. (do-after-load-evaluation): Replace run-with-timer with run-with-idle-timer to give a chance for the minibuffer to handle initial events before sit-for. https://lists.gnu.org/archive/html/emacs-devel/2019-11/msg00581.html --- diff --git a/lisp/subr.el b/lisp/subr.el index eaec2235853..20daed623fe 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2707,7 +2707,6 @@ When CHARS is non-nil, any input that is not one of CHARS is ignored. When HISTORY is a symbol, then allows navigating in a history. The navigation commands are `M-p' and `M-n', with `RET' to select a character from history." - (discard-input) (let* ((empty-history '()) (map (if (consp chars) (or (gethash chars read-char-from-minibuffer-map-hash) @@ -2847,7 +2846,6 @@ is nil and `use-dialog-box' is non-nil." answer (x-popup-dialog t `(,prompt ("Yes" . act) ("No" . skip))))) (t (setq prompt (funcall padded prompt)) - (discard-input) (let* ((empty-history '()) (str (read-from-minibuffer prompt nil @@ -4622,7 +4620,7 @@ This function is called directly from the C code." byte-compile-current-file byte-compile-root-dir))) (byte-compile-warn "%s" msg)) - (run-with-timer 0 nil + (run-with-idle-timer 0 nil (lambda (msg) (minibuffer-message "%s" msg)) msg)))))