branch: elpa/isl
commit 085be447688a45ac509982ffe125b82e5923213b
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Flash current line when exiting
---
isearch-light.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 91d646a6db4..654e92912c8 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -55,8 +55,12 @@
(defun il-search-exit-at-point ()
(interactive)
- (exit-minibuffer)
- (recenter (1- (/ (window-height) 2))))
+ (with-selected-window (get-buffer-window il-search-current-buffer)
+ (let ((ov (make-overlay (point-at-bol) (point-at-eol))))
+ (overlay-put ov 'face '(:background "red"))
+ (sit-for 0.1)
+ (delete-overlay ov)))
+ (exit-minibuffer))
(defun il-search-delete-overlays ()
(when il-search-item-overlays
