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

Change: (org-ql--org-timestamp-element<) Use macrolet

Browse source 
Should be a small performance improvement, avoiding funcall overhead.
This commit is contained in:
Adam Porter 2018-07-10 08:26:55 -05:00
parent 51a472ffa8
commit c605ccbaf3
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

@ -333,9 +333,9 @@ Deadline is considered before scheduled."
(defun org-ql--org-timestamp-element< (a b) (defun org-ql--org-timestamp-element< (a b)
"Return non-nil if A's date element is earlier than B's. "Return non-nil if A's date element is earlier than B's.
A and B are Org timestamp elements." A and B are Org timestamp elements."
(cl-flet ((ts (ts) (cl-macrolet ((ts (ts)
(when ts `(when ,ts
(org-timestamp-format ts "%s")))) (org-timestamp-format ,ts "%s"))))
(let* ((a-ts (ts a)) (let* ((a-ts (ts a))
(b-ts (ts b))) (b-ts (ts b)))
(cond ((and a-ts b-ts) (cond ((and a-ts b-ts)