Change: Enable lexical-binding

Hopefully this doesn't break anything...
This commit is contained in:
Adam Porter 2018-06-08 18:03:21 -05:00
parent 1143414f67
commit 977e9aa0a2

View file

@ -1,3 +1,6 @@
;; -*- lexical-binding: t; -*-
;;; Code:
;;;; Requirements
@ -79,6 +82,7 @@ Headings should return non-nil for any ANY-PREDS and nil for all
NONE-PREDS. If NARROW is non-nil, buffer will not be widened
first."
;; Cache `org-today' so we don't have to run it repeatedly.
(let (today)
(cl-letf ((today org-ql--today))
(org-ql--fmap ((category #'org-ql--category-p)
(date #'org-ql--date-plain-p)
@ -102,7 +106,7 @@ first."
(outline-next-heading))
(cl-loop when (funcall pred)
collect (org-element-headline-parser (line-end-position))
while (outline-next-heading)))))))
while (outline-next-heading))))))))
;;;;; Predicates