[elpa] externals/cape 9e4651649b 094/146: Treat company backends as non-interruptible.

[ELPA Syncer]

branch: externals/cape
commit 9e4651649b5d47d5f74615e1dc8cc0b676e5ff38
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Treat company backends as non-interruptible.
---
 cape.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/cape.el b/cape.el
index 7985f62429..f1e0404ae5 100644
--- a/cape.el
+++ b/cape.el
@@ -720,11 +720,13 @@ If INTERACTIVE is nil the function acts like a capf."
 
 (defun cape--company-call (backend &rest args)
   "Call Company BACKEND with ARGS."
-  (pcase (apply backend args)
+  ;; Company backends are non-interruptible!
+  (pcase (let (throw-on-input) (apply backend args))
     (`(:async . ,fetcher)
      (let ((res 'trash)
            (start (time-to-seconds)))
-       (funcall fetcher (lambda (arg) (setq res arg)))
+       ;; Company backends are non-interruptible!
+       (let (throw-on-input) (funcall fetcher (lambda (arg) (setq res arg))))
        ;; Force synchronization
        (while (eq res 'trash)
          (sleep-for company-async-wait)