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

Comment: Clarify

Browse source
This commit is contained in:
Adam Porter 2019-08-13 21:28:20 -05:00
parent 4a9379c83e
commit eb38cf6b06
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-ql.el
View file

@ -577,7 +577,7 @@ If NARROW is non-nil, buffer will not be widened."
;; searches a buffer without headings, he might be confused. ;; searches a buffer without headings, he might be confused.
(message "org-ql: No headings in buffer: %s" (current-buffer))) (message "org-ql: No headings in buffer: %s" (current-buffer)))
nil) 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) (cond (preamble-re (cl-loop while (re-search-forward preamble-re nil t)
do (outline-back-to-heading 'invisible-ok) do (outline-back-to-heading 'invisible-ok)
when (funcall predicate) when (funcall predicate)