branch: externals/cape
commit 693a3769135013f718c8ffcab21e5e502b558889
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Revert "Add cape-capf-with-predicate (See #9)"
This reverts commit 0a05e51d2aad419b8650dcf81623887c85ce380d.
---
README.org | 1 -
cape.el | 10 ----------
2 files changed, 11 deletions(-)
diff --git a/README.org b/README.org
index 8ec09aba7c..eef1a87b08 100644
--- a/README.org
+++ b/README.org
@@ -120,4 +120,3 @@ achieve a similarly refreshing strategy.
- ~cape-silent-capf~: Wrap a chatty Capf and silence it.
- ~cape-capf-with-properties~: Add completion properties to a Capf.
-- ~cape-capf-with-predicate~: Add predicate to control if the Capf should
activate.
diff --git a/cape.el b/cape.el
index e0412544a6..db93c6d9c5 100644
--- a/cape.el
+++ b/cape.el
@@ -681,16 +681,6 @@ The CMP argument determines how the new input is compared
to the old input.
('equal (equal old-input new-input))
('substring (string-match-p (regexp-quote old-input)
new-input))))))
-;;;###autoload
-(defun cape-capf-with-predicate (capf predicate)
- "Return a new CAPF which activates only when the PREDICATE is non-nil.
-The PREDICATE takes the completion beginning and end positions as arguments."
- (lambda ()
- (pcase (funcall capf)
- ((and result `(,beg ,end ,_table . ,_plist))
- (when (funcall predicate beg end)
- result)))))
-
;;;###autoload
(defun cape-capf-with-properties (capf &rest properties)
"Return a new CAPF with additional completion PROPERTIES.
