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

Fix: (org-ql-find) Always map across a list

Browse source
This commit is contained in:
Adam Porter 2022-06-26 22:55:20 -05:00
parent 77916a1c4f
commit c2b8af3181
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql-find.el
View file

@ -198,6 +198,9 @@ single predicate)."
;; which interrupts it, so we must work around this problem by ;; which interrupts it, so we must work around this problem by
;; ensuring all of the BUFFERS-FILES are loaded and initialized ;; ensuring all of the BUFFERS-FILES are loaded and initialized
;; before calling `completing-read'. ;; before calling `completing-read'.
(unless (listp buffers-files)
;; Since we map across this argument, we ensure it's a list.
(setf buffers-files (list buffers-files)))
(mapc #'org-ql--ensure-buffer buffers-files) (mapc #'org-ql--ensure-buffer buffers-files)
(let* ((completion-styles '(org-ql-find)) (let* ((completion-styles '(org-ql-find))
(completion-styles-alist (list (list 'org-ql-find #'try #'all "Org QL Find"))) (completion-styles-alist (list (list 'org-ql-find #'try #'all "Org QL Find")))