[elpa] externals/kiwix 19bfe4f 051/192: add an option to let kiwix-at-point search interactively

[Stefan Monnier]

branch: externals/kiwix
commit 19bfe4fbd086ed33390f6945dc9a3a814b8d7004
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>

    add an option to let kiwix-at-point search interactively
---
 kiwix.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/kiwix.el b/kiwix.el
index 5f6a427..a177428 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -131,6 +131,11 @@
   "Get Kiwix library full name which is associated with `ABBR'."
   (cdr (assoc abbr kiwix-libraries-abbrev-alist)))
 
+(defcustom kiwix-search-interactively t
+  "`kiwix-at-point' search interactively."
+  :type 'boolean
+  :group 'kiwix)
+
 ;; launch Kiwix server
 ;;;###autoload
 (defun kiwix-launch-server ()
@@ -161,7 +166,8 @@
 Or When prefix argument `INTERACTIVELY' specified, then prompt
 for query string and library interactively."
   (interactive "P")
-  (let* ((library (if interactively
+  (let* ((library (if (or kiwix-search-interactively
+                          interactively)
                       (kiwix-get-library-fullname (kiwix-select-library-name))
                     (kiwix-get-library-fullname "default")))
          (query (if interactively