branch: externals/pulsar
commit 3f0745113b6b7de97dd3135528bb80f96977fe9f
Merge: 40b1aa8c48 5445236a47
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Merge branch 'main' into 'main'
Modify pulsar--pulse function to pulse only current window
See merge request protesilaos/pulsar!2
---
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 ()
