[elpa] externals/cape 8726bc7246 138/146: cape--interactive: Simplify

[ELPA Syncer]

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

    cape--interactive: Simplify
---
 cape.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/cape.el b/cape.el
index aa71afc944..dad2bae588 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."