jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add: (org-ql--fmap) Add debug declaration

Browse source
This commit is contained in:
Adam Porter 2018-06-08 18:05:52 -05:00
parent a134e34fd8
commit 86d2e38802
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-ql.el
View file

@ -47,7 +47,7 @@ buffer (the default is to widen and search the entire buffer)."
(t (user-error "SORT must be a function or a list of methods (see documentation)"))))) (t (user-error "SORT must be a function or a list of methods (see documentation)")))))
(defmacro org-ql--fmap (fns &rest body) (defmacro org-ql--fmap (fns &rest body)
(declare (indent defun)) (declare (indent defun) (debug (listp body)))
`(cl-letf ,(cl-loop for (fn target) in fns `(cl-letf ,(cl-loop for (fn target) in fns
collect `((symbol-function ',fn) collect `((symbol-function ',fn)
(symbol-function ,target))) (symbol-function ,target)))