branch: externals/setup
commit 30c03935774e7c34cc4de87dcf1f88ea09c190a1
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Deprecate passing a map to :bind-into
---
setup.el | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/setup.el b/setup.el
index be1e9bf965..eae5f6cd12 100644
--- a/setup.el
+++ b/setup.el
@@ -598,11 +598,15 @@ The first FEATURE can be used to deduce the feature
context."
:repeatable t)
(setup-define :bind-into
- (lambda (feature-or-map &rest rest)
- (if (string-match-p "-map\\'" (symbol-name feature-or-map))
- `(:with-map ,feature-or-map (:bind ,@rest))
- `(:with-feature ,feature-or-map (:bind ,@rest))))
- :documentation "Bind into keys into the map of FEATURE-OR-MAP.
+ (lambda (feature &rest rest)
+ (if (string-match-p "-map\\'" (symbol-name feature))
+ (progn
+ ;;
https://lists.sr.ht/~pkal/public-inbox/%[email protected]%3E
+ ;;
https://lists.sr.ht/~pkal/public-inbox/%[email protected]%3E
+ (warn "The `:bind-into' with a map %S is considered unreliable, and
will be deprecated." feature)
+ `(:with-map ,feature (:bind ,@rest)))
+ `(:with-feature ,feature (:bind ,@rest))))
+ :documentation "Bind into keys into the map of FEATURE.
The arguments REST are handled as by `:bind'."
:debug '(sexp &rest form sexp)
:ensure '(nil &rest kbd func)
