Fix: (org-ql-completing-read) Binding of completion-styles-alist

Fixes #337.

Thanks to Nicholas Vollmer (@progfolio), viz (@9viz), and Karthik
Chikmagalur (@karthink) for reporting and suggesting fixes.
This commit is contained in:
Adam Porter 2024-08-29 14:39:55 -05:00
parent 357d533b75
commit 3c1dd36990
3 changed files with 52 additions and 43 deletions

View file

@ -335,7 +335,8 @@ single predicate)."
;; `completing-read'.
(mapc #'org-ql--ensure-buffer buffers-files)
(let* ((completion-styles '(org-ql-completing-read))
(completion-styles-alist (list (list 'org-ql-completing-read #'try #'all "Org QL Find")))
(completion-styles-alist (cons (list 'org-ql-completing-read #'try #'all "Org QL Find")
completion-styles-alist))
(selected
(minibuffer-with-setup-hook
(lambda ()