[elpa] externals/isearch-mb a8d2a15 10/20: Provide future history

[Stefan Monnier]

branch: externals/isearch-mb
commit a8d2a15773833ae924bbf9a2d5fbdb97eb6b73e1
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Provide future history
---
 isearch-mb.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/isearch-mb.el b/isearch-mb.el
index 8ac3ce8..b469282 100644
--- a/isearch-mb.el
+++ b/isearch-mb.el
@@ -156,8 +156,11 @@ minibuffer."
               isearch-mb-minibuffer-map
               nil
               (if isearch-regexp 'regexp-search-ring 'search-ring)
-              (when-let (thing (thing-at-point 'symbol))
-                (if isearch-regexp (regexp-quote thing) thing))
+              (thread-last '(region url symbol sexp line) ;; TODO: make 
customizable
+                (mapcar 'thing-at-point)
+                (delq nil)
+                (delete-dups)
+                (mapcar (if isearch-regexp 'regexp-quote 'identity)))
               t))
            (if isearch-mode '(isearch-done) '(ignore)))))
     (quit (if isearch-mode (isearch-cancel) (signal 'quit nil)))))