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

Change: Use macrolet instead of flet for priority sorter

Browse source
This commit is contained in:
Adam Porter 2018-08-20 07:49:49 -05:00
parent c9245be371
commit 32f2b3304a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql.el
View file

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