From c2b8af3181c6f1048f189b4d3d0958a73de52ed7 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 26 Jun 2022 22:55:20 -0500 Subject: [PATCH] Fix: (org-ql-find) Always map across a list --- org-ql-find.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/org-ql-find.el b/org-ql-find.el index bc1d492..080bb12 100644 --- a/org-ql-find.el +++ b/org-ql-find.el @@ -198,6 +198,9 @@ single predicate)." ;; which interrupts it, so we must work around this problem by ;; ensuring all of the BUFFERS-FILES are loaded and initialized ;; 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) (let* ((completion-styles '(org-ql-find)) (completion-styles-alist (list (list 'org-ql-find #'try #'all "Org QL Find")))