Kevin Foley <[email protected]> writes: > + (`(,_ ,f) > + (when (listp f) > + (let ((args (funcall (nth 1 f))) > + (func (nth 0 f))) > + (setq f (apply #'apply-partially func args)))) > + (setq cmd f) (setq redo-at-end t))
That will not work. pcase will not even match list of 3+ elements using
`(,_ ,f):
(pcase '(a b c)
(`(,_ ,f)
(if (listp f)
"List!"
"Not list!"))
(_ "No match!")) => "No match!"
You need to add extra matcher `(,_ ,argf ,f).
Best,
Ihor
