branch: externals/kiwix
commit 19bfe4fbd086ed33390f6945dc9a3a814b8d7004
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@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
