branch: externals/cape
commit 8726bc7246cda99b85a4bf84ff7681f1bfff0d4b
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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."
