[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/isearch-mb 302a437713 2/3: Make future history customiz
From: |
ELPA Syncer |
Subject: |
[elpa] externals/isearch-mb 302a437713 2/3: Make future history customizable |
Date: |
Fri, 28 Jan 2022 04:57:57 -0500 (EST) |
branch: externals/isearch-mb
commit 302a437713361edfe60077d8ee342d73701bdf32
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>
Make future history customizable
The variable `isearch-forward-thing-at-point` (new in Emacs 28) is
used to compute the future history items.
Closes #22
---
isearch-mb.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/isearch-mb.el b/isearch-mb.el
index 00feb5ed1d..1b48e4c103 100644
--- a/isearch-mb.el
+++ b/isearch-mb.el
@@ -163,7 +163,9 @@
"Add default search strings to future history."
(setq minibuffer-default
(with-minibuffer-selected-window
- (thread-last '(region url symbol sexp line) ;; TODO: make
customizable
+ (thread-last (if (boundp 'isearch-forward-thing-at-point)
+ isearch-forward-thing-at-point ;; Introduced in
Emacs 28
+ '(region url symbol sexp))
(mapcar #'thing-at-point)
(delq nil)
(delete-dups)