From: Juri Linkov <juri@linkov.net>
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)))))