From 1143414f67bbe751665b8818b1d635bfaf65b2ee Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Thu, 24 May 2018 10:04:34 -0500 Subject: [PATCH] Change: (--date<) Use macrolet instead of flet --- org-ql.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org-ql.el b/org-ql.el index 9377691..7a9755f 100644 --- a/org-ql.el +++ b/org-ql.el @@ -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)