branch: elpa/isl
commit 6e9eb68ff296a0df59ad8dc250daf0f467d7dddb
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use region as default when activated
---
isearch-light.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/isearch-light.el b/isearch-light.el
index 9c6a6e4cfa5..c3b6747c175 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -804,7 +804,12 @@ appended at end."
(setq timer (run-with-idle-timer
isl-timer-delay 'repeat #'isl-check-input)))
(read-from-minibuffer
- prompt nil isl-map nil 'isl-history (thing-at-point 'symbol t)))
+ prompt nil isl-map nil 'isl-history
+ (if (region-active-p)
+ (buffer-substring-no-properties
+ (region-beginning)
+ (region-end))
+ (thing-at-point 'symbol t))))
(cancel-timer timer))))
(defun isl-cleanup ()
