[elpa] externals/mct 740d9f5d7d 01/64: Do not bind while-no-input-ignore-events

[ELPA Syncer]

branch: externals/mct
commit 740d9f5d7d7ccb3c3a4ce1d478d94fc13adf3d66
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Do not bind while-no-input-ignore-events
    
    This was a workaround fo an issue which has been fixed upstream.
    The workaround has also been removed from Vertico and Icomplete.
---
 mct.el | 40 +++++++++++++++++++---------------------
 1 file changed, 19 insertions(+), 21 deletions(-)

diff --git a/mct.el b/mct.el
index f2de67ad2f..ec36e72eda 100644
--- a/mct.el
+++ b/mct.el
@@ -251,21 +251,20 @@ 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)
-                          ;; 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)
+                        ;; 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'."
@@ -1130,12 +1129,11 @@ region.")
 (defun mct--region-live-completions (&rest _)
   "Update the *Completions* buffer.
 Meant to be added to `after-change-functions'."
-  (let ((while-no-input-ignore-events '(selection-request)))
-    (while-no-input
-      (condition-case nil
-          (save-match-data
-            (mct--show-completions))
-        (quit (keyboard-quit))))))
+  (while-no-input
+    (condition-case nil
+        (save-match-data
+          (mct--show-completions))
+      (quit (keyboard-quit)))))
 
 (defun mct--region-live-update ()
   "Hook up `mct--region-live-completions'."