[elpa] externals/mct 2eafec4a7b: Do not bind while-no-input-ignore-events

[ELPA Syncer]

branch: externals/mct
commit 2eafec4a7ba7ebb265d44184738630ce92320c41
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Do not bind while-no-input-ignore-events
    
    This was introduced by Daniel Mendler in commit 740d9f5d but I had only
    pushed it to another branch and then we added another change on top...
    Sorry about this mess.
---
 mct.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/mct.el b/mct.el
index 0b1ec980f1..925ddeb54d 100644
--- a/mct.el
+++ b/mct.el
@@ -251,22 +251,21 @@ See `mct-minimum-input'."
   "Update the *Completions* buffer.
 Meant to be added to `after-change-functions'."
   (when (minibufferp) ; skip if we've exited already
-    (let ((while-no-input-ignore-events '(selection-request)))
-      (while-no-input
-        (if (or (mct--minimum-input)
-                (eq mct-live-completion 'visible))
-            (condition-case nil
-                (save-match-data
-                  (save-excursion
-                    (goto-char (point-max))
-                    (let ((inhibit-message t)
-                          (message-log-max nil)
-                          ;; don't ring the bell in 
`minibuffer-completion-help'
-                          ;; when <= 1 completion exists.
-                          (ring-bell-function #'ignore))
-                      (mct--show-completions))))
-              (quit (abort-recursive-edit)))
-          (minibuffer-hide-completions))))))
+    (while-no-input
+      (if (or (mct--minimum-input)
+              (eq mct-live-completion 'visible))
+          (condition-case nil
+              (save-match-data
+                (save-excursion
+                  (goto-char (point-max))
+                  (let ((inhibit-message t)
+                        (message-log-max nil)
+                        ;; don't ring the bell in `minibuffer-completion-help'
+                        ;; when <= 1 completion exists.
+                        (ring-bell-function #'ignore))
+                    (mct--show-completions))))
+            (quit (abort-recursive-edit)))
+        (minibuffer-hide-completions)))))
 
 (defun mct--live-completions-timer (&rest _)
   "Update Completions with `mct-live-update-delay'."