Change: Use macrolet instead of flet for priority sorter

This commit is contained in:
Adam Porter 2018-08-20 07:49:49 -05:00
parent c9245be371
commit 32f2b3304a

View file

@ -423,8 +423,8 @@ A and B are Org timestamp elements."
(defun org-ql--priority< (a b)
"Return non-nil if A's priority is higher than B's.
A and B are Org headline elements."
(cl-flet ((priority (item)
(org-element-property :priority item)))
(cl-macrolet ((priority (item)
`(org-element-property :priority ,item)))
;; NOTE: Priorities are numbers in Org elements. This might differ from the priority selector logic.
(let ((a-priority (priority a))
(b-priority (priority b)))