[elpa] externals/consult-recoll c824a2fea2 21/50: fix for C-u consult-recoll

[ELPA Syncer]

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

    fix for C-u consult-recoll
---
 consult-recoll.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult-recoll.el b/consult-recoll.el
index eb8ac5e3a5..ac19cf63b9 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -121,7 +121,8 @@ If given, use INITIAL as the starting point of the query."
   "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: "))))
+  (let ((initial (when ask
+                   (if (stringp ask) ask (read-string "Initial query: ")))))
     (consult-recoll--open (consult-recoll--search initial))))
 
 (provide 'consult-recoll)