[elpa] externals/consult-recoll 42dea1d40f 18/50: consult-recoll: prefix argument to ask for initial input

[ELPA Syncer]

branch: externals/consult-recoll
commit 42dea1d40fedf7894e2515b4566a783b7b85486a
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    consult-recoll: prefix argument to ask for initial input
---
 consult-recoll.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/consult-recoll.el b/consult-recoll.el
index 68f6db5b4f..eb8ac5e3a5 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -117,10 +117,12 @@ If given, use INITIAL as the starting point of the query."
                  :category 'recoll-result))
 
 ;;;###autoload
-(defun consult-recoll ()
-  "Consult recoll's local index."
-  (interactive)
-  (consult-recoll--open (consult-recoll--search)))
+(defun consult-recoll (ask)
+  "Consult recoll's local index.
+With prefix argument ASK, the user is prompted for an initial query string."
+  (interactive "P")
+  (let ((initial (when ask (read-string "Initial query: "))))
+    (consult-recoll--open (consult-recoll--search initial))))
 
 (provide 'consult-recoll)
 ;;; consult-recoll.el ends here