Treat company backends as non-interruptible.

1 files changed, 4 insertions, 2 deletions

diff --git a/cape.el b/cape.el
index 7985f62..f1e0404 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)