From 32f2b3304ab96d84a4c4edf7e52f9ba4ade14b61 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 20 Aug 2018 07:49:49 -0500 Subject: [PATCH] Change: Use macrolet instead of flet for priority sorter --- org-ql.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/org-ql.el b/org-ql.el index bd60866..0c43799 100644 --- a/org-ql.el +++ b/org-ql.el @@ -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)))