[elpa] externals/corfu 4a55d2b 1/2: Make capf query interruptible

[ELPA Syncer]

branch: externals/corfu
commit 4a55d2b4a9442b0d0c8afa41e0af4d1b178772f5
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Make capf query interruptible
---
 corfu.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/corfu.el b/corfu.el
index 8e4b3cd..3a5047f 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1099,8 +1099,9 @@ there hasn't been any input, then quit."
   (setq corfu--auto-timer nil)
   (when (and (not completion-in-region-mode)
              (eq (current-buffer) buffer))
-    (pcase (run-hook-wrapped 'completion-at-point-functions
-                             #'completion--capf-wrapper 'all)
+    (pcase (while-no-input ;; Interruptible capf query
+             (run-hook-wrapped 'completion-at-point-functions
+                               #'completion--capf-wrapper 'all))
       ((and `(,fun ,beg ,end ,table . ,plist)
             (guard (integer-or-marker-p beg))
             (guard (<= beg (point) end))