[elpa] externals/pulsar 5445236a47 1/3: Modify pulsar--pulse function to pulse only current window

[ELPA Syncer]

branch: externals/pulsar
commit 5445236a47da1609a387655168cde9a3800afd59
Author: Aymeric Agon-Rambosson <aymeric.agon@yandex.com>
Commit: Aymeric Agon-Rambosson <aymeric.agon@yandex.com>

    Modify pulsar--pulse function to pulse only current window
---
 pulsar.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index d369ecf929..155e929c23 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -262,11 +262,14 @@ With optional NO-PULSE keep the highlight until another 
command
 is invoked.  Otherwise use whatever `pulsar-pulse' entails.
 
 With optional FACE, use it instead of `pulsar-face'."
-  (let ((pulse-flag (if no-pulse nil pulsar-pulse))
-        (pulse-delay pulsar-delay)
-        (pulse-iterations pulsar-iterations)
-        (f (if (facep face) face pulsar-face)))
-    (pulse-momentary-highlight-region (pulsar--start) (pulsar--end) f)))
+  (let* ((pulse-flag (if no-pulse nil pulsar-pulse))
+        (pulse-delay pulsar-delay)
+        (pulse-iterations pulsar-iterations)
+        (f (if (facep face) face pulsar-face))
+        (o (make-overlay (pulsar--start) (pulsar--end))))
+    (overlay-put o 'pulse-delete t)
+    (overlay-put o 'window (frame-selected-window))
+    (pulse-momentary-highlight-overlay o f)))
 
 ;;;###autoload
 (defun pulsar-pulse-line ()