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

Change: (--date<) Use macrolet instead of flet

Browse source
This commit is contained in:
Adam Porter 2018-05-24 10:04:34 -05:00
parent f19f2a4cb4
commit 1143414f67
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql.el
View file

@ -305,9 +305,9 @@ A and B are Org headline elements. TYPE should be a symbol like
(defun org-ql--date< (a b)
"Return non-nil if A's deadline or scheduled element property is earlier than B's.
Deadline is considered before scheduled."
(cl-flet ((ts (item)
(or (org-element-property :deadline item)
(org-element-property :scheduled item))))
(cl-macrolet ((ts (item)
`(or (org-element-property :deadline ,item)
(org-element-property :scheduled ,item))))
(org-ql--org-timestamp-element< (ts a) (ts b))))
(defun org-ql--org-timestamp-element< (a b)