branch: elpa/isl
commit de073e1bccf7b8b5ad82a06166d5f7d85a41d198
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use pulse.el
---
isl.el | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/isl.el b/isl.el
index 4d3c7ba2fd4..3677ac1d71c 100644
--- a/isl.el
+++ b/isl.el
@@ -64,6 +64,7 @@
(declare-function hs-show-block "hideshow.el")
(declare-function markdown-show-entry "ext:markdown-mode.el")
(declare-function bm-toggle "ext:bm.el")
+(declare-function pulse-momentary-highlight-region "pulse.el")
;; History
(defvar isl-history nil)
@@ -237,10 +238,6 @@ You can toggle this at any time with
\\<isl-map>\\[isl-toggle-multi-search-in-li
:foreground "black"))
"Face used to highlight the item where point is.")
-(defface isl-line
- '((t :background "Darkgoldenrod1" :extend t))
- "Face used to flash line on exit.")
-
(defface isl-number
'((t :foreground "green"))
"Face used to highlight number in mode-line.")
@@ -460,10 +457,7 @@ It put overlay on current position, move to next overlay
using
(when isl-save-pos-to-mark-ring
(set-marker (mark-marker) isl--initial-pos)
(push-mark isl--initial-pos 'nomsg))
- (let ((ov (make-overlay (pos-bol) (1+ (pos-eol)))))
- (overlay-put ov 'face 'isl-line)
- (sit-for 0.2)
- (delete-overlay ov))
+ (pulse-momentary-highlight-region (pos-bol) (pos-eol))
;; Save `window-start' position before exiting minibuffer and
;; restore it after in `isl-cleanup' to avoid a moving screen.
(setq isl--window-start (window-start))))
