Kevin Foley <ke...@kevinjfoley.me> 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