branch: externals/consult-recoll
commit 42dea1d40fedf7894e2515b4566a783b7b85486a
Author: jao <j...@gnu.org>
Commit: jao <j...@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
