From eb38cf6b06514c051a6375f4217c08334323def1 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 13 Aug 2019 21:28:20 -0500 Subject: [PATCH] Comment: Clarify --- org-ql.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index 886f162..57e31ba 100644 --- a/org-ql.el +++ b/org-ql.el @@ -577,7 +577,7 @@ If NARROW is non-nil, buffer will not be widened." ;; searches a buffer without headings, he might be confused. (message "org-ql: No headings in buffer: %s" (current-buffer))) nil) - ;; `cl-loop' makes this double-while much clearer than the expanded form. + ;; Find matching entries. (cond (preamble-re (cl-loop while (re-search-forward preamble-re nil t) do (outline-back-to-heading 'invisible-ok) when (funcall predicate)