From 31efd5a26d219b789bf74d69d0d2292e44540a8b Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 9 Dec 2020 21:18:10 -0600 Subject: [PATCH] Comment: Add TODO --- org-ql.el | 1 + 1 file changed, 1 insertion(+) diff --git a/org-ql.el b/org-ql.el index 36e69a5..5e1257a 100644 --- a/org-ql.el +++ b/org-ql.el @@ -378,6 +378,7 @@ If NARROW is non-nil, buffer will not be widened." (message "org-ql: No headings in buffer: %s" (current-buffer))) nil) ;; Find matching entries. + ;; TODO: Bind `case-fold-search' around the preamble loop. (cond (preamble (cl-loop while (let ((case-fold-search preamble-case-fold)) (re-search-forward preamble nil t)) do (outline-back-to-heading 'invisible-ok)