branch: externals/isearch-mb
commit a8d2a15773833ae924bbf9a2d5fbdb97eb6b73e1
Author: Augusto Stoffel <arstof...@gmail.com>
Commit: Augusto Stoffel <arstof...@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)))))
