From 8726bc7246cda99b85a4bf84ff7681f1bfff0d4b Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Tue, 14 Dec 2021 00:49:34 +0100 Subject: cape--interactive: Simplify --- cape.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/cape.el b/cape.el index aa71afc..dad2bae 100644 --- a/cape.el +++ b/cape.el @@ -337,11 +337,8 @@ (defun cape--interactive (capf) "Complete with CAPF." - (pcase (funcall capf) - (`(,beg ,end ,table . ,extra) - (let ((completion-extra-properties extra)) - (completion-in-region beg end table (plist-get extra :predicate)))) - (_ (user-error "%s: No completions" capf)))) + (let ((completion-at-point-functions (list capf))) + (or (completion-at-point) (user-error "%s: No completions" capf)))) (defun cape--noninterruptible-table (table) "Create non-interruptible completion TABLE." -- cgit v1.0