From fbf3f275ad789cdfacc09bf8a6841ec49d0120fa Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sat, 2 Apr 2022 01:39:55 +0200 Subject: cape-capf-noninterruptible: Add missing throw-on-input --- cape.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cape.el b/cape.el index 85a8bf6..03f1d6b 100644 --- a/cape.el +++ b/cape.el @@ -1062,7 +1062,7 @@ If DONT-FOLD is non-nil return a case sensitive table instead." ;;;###autoload (defun cape-wrap-noninterruptible (capf) "Call CAPF and return a non-interruptible completion table." - (pcase (funcall capf) + (pcase (let (throw-on-input) (funcall capf)) (`(,beg ,end ,table . ,plist) `(,beg ,end ,(cape--noninterruptible-table table) ,@plist)))) -- cgit v1.0