branch: externals/mct
commit 2eafec4a7ba7ebb265d44184738630ce92320c41
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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'."
