emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/kiwix 87c1246 139/192: simplify kiwix read input


From: Stefan Monnier
Subject: [elpa] externals/kiwix 87c1246 139/192: simplify kiwix read input
Date: Sat, 19 Dec 2020 00:41:48 -0500 (EST)

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

    simplify kiwix read input
---
 kiwix.el | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/kiwix.el b/kiwix.el
index fb4c5ae..228c507 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -220,17 +220,8 @@ for query string and library interactively."
       (let* ((library (if (or kiwix-search-interactively interactively)
                           (kiwix-select-library)
                         (kiwix--get-library-name kiwix-default-library)))
-             (query (completing-read
-                     "Kiwix related entries: "
-                     (kiwix-ajax-search-hints
-                      (if interactively
-                          (read-string "Kiwix Search: "
-                                       (if mark-active
-                                           (buffer-substring 
(region-beginning) (region-end))
-                                         (thing-at-point 'symbol)))
-                        (progn (if mark-active
-                                   (buffer-substring (region-beginning) 
(region-end))
-                                 (thing-at-point 'symbol))))))))
+             (query (completing-read "Kiwix Search: "
+                                     (kiwix-ajax-search-hints (read-string 
"Input: ")))))
         (message (format "library: %s, query: %s" library query))
         (if (or (null library)
                 (string-empty-p library)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]