branch: externals/taxy
commit a672c8e347b405a14928c4bda12cada95221c12c
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (taxy-make-take-function) Allow symbol args to functions
---
taxy.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/taxy.el b/taxy.el
index 231fa27..0bd2160 100644
--- a/taxy.el
+++ b/taxy.el
@@ -336,8 +336,11 @@ defined with a definer defined by
`taxy-define-key-definer')."
(funcall fn buffer))
(or ,name ""))))
(`(,(and (pred symbolp) fn)
- . ,(and args (guard (cl-typecase (car args)
- ((or keyword (and atom (not
symbol)))
+ . ,(and args (guard (pcase (car args)
+ ((or (pred keywordp)
+ (and (pred atom)
+ (pred (not
symbolp)))
+ `(quote ,_))
t)))))
;; Key with args: replace with a lambda that
;; calls that key's function with given args.
