branch: externals/cape
commit dfb3bca62238aab8f64ec319a77a125df86a0eee
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Remove obsolete functions
---
CHANGELOG.org | 4 ++++
cape.el | 15 ++-------------
2 files changed, 6 insertions(+), 13 deletions(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index b60c045f8e..72db999b40 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,10 @@
#+author: Daniel Mendler
#+language: en
+* Development
+
+- Remove obsolete ~cape-capf-purify~ and ~cape-wrap-purify~.
+
* Version 2.5 (2026-01-17)
- Use =when-let*=.
diff --git a/cape.el b/cape.el
index ee04bc0229..69acf29c38 100644
--- a/cape.el
+++ b/cape.el
@@ -1279,16 +1279,6 @@ Example:
(funcall exit str status))))
. ,plist))))))
-;;;###autoload (autoload 'cape-capf-purify "cape")
-;;;###autoload
-(defun cape-wrap-purify (capf)
- "Obsolete purification wrapper calling CAPF.
-This function can be used as an advice around an existing Capf."
- (warn "`cape-wrap-purify' is obsolete")
- (funcall capf))
-(make-obsolete 'cape-wrap-purify nil "2.2")
-(make-obsolete 'cape-capf-purify nil "2.2")
-
(dolist (wrapper (list #'cape-wrap-accept-all #'cape-wrap-buster
#'cape-wrap-case-fold #'cape-wrap-choose
#'cape-wrap-debug #'cape-wrap-inside-code
@@ -1296,9 +1286,8 @@ This function can be used as an advice around an existing
Capf."
#'cape-wrap-inside-string #'cape-wrap-nonexclusive
#'cape-wrap-noninterruptible #'cape-wrap-passthrough
#'cape-wrap-predicate #'cape-wrap-prefix-length
- #'cape-wrap-properties 'cape-wrap-purify
- #'cape-wrap-silent #'cape-wrap-sort
- #'cape-wrap-super #'cape-wrap-trigger))
+ #'cape-wrap-properties #'cape-wrap-silent
+ #'cape-wrap-sort #'cape-wrap-super #'cape-wrap-trigger))
(let ((name (string-remove-prefix "cape-wrap-" (symbol-name wrapper))))
(defalias (intern (format "cape-capf-%s" name))
(lambda (capf &rest args) (lambda () (apply wrapper capf args)))
