[elpa] externals/taxy a672c8e 32/42: Fix: (taxy-make-take-function) Allow symbol args to functions

[ELPA Syncer]

branch: externals/taxy
commit a672c8e347b405a14928c4bda12cada95221c12c
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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.