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

Fix: (org-ql-completing-read-snippet) while-no-input

Browse source
This commit is contained in:
Adam Porter 2023-09-22 23:12:06 -05:00
parent 7ecb4a8b10
commit 40b25ac319
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
org-ql-completing-read.el
View file

@ -91,13 +91,17 @@ Returns value returned by function
`org-ql-completing-read-snippet-function' or
`org-ql-completing-read--snippet-simple', whichever returns a
value, or nil."
(while-no-input
(pcase (while-no-input
;; Using `while-no-input' here doesn't make it as
;; responsive as, e.g. Helm while typing, but it seems to
;; help a little when using the org-rifle-style snippets.
(org-with-point-at marker
(or (funcall org-ql-completing-read-snippet-function)
(org-ql-completing-read--snippet-simple)))))
(org-ql-completing-read--snippet-simple))))
(`t
;; Interrupted: return nil (which can be concatted).
nil)
(else else)))
(defun org-ql-completing-read-path (marker)
"Return formatted outline path for entry at MARKER."