Fix: (org-ql-select) Accept special forms and macros in action

This commit is contained in:
Adam Porter 2019-08-08 15:28:36 -05:00
parent d9b7647f5b
commit 2dbe40d9ea

View file

@ -165,7 +165,9 @@ non-nil."
`(lambda (&rest _ignore) `(lambda (&rest _ignore)
(org-element-headline-parser (line-end-position))))) (org-element-headline-parser (line-end-position)))))
((pred functionp) action) ((pred functionp) action)
((and (pred listp) (guard (functionp (car action)))) ((and (pred listp) (guard (or (special-form-p (car action))
(macrop (car action))
(functionp (car action)))))
(byte-compile (byte-compile
`(lambda (&rest _ignore) `(lambda (&rest _ignore)
,action))) ,action)))