Only blink selected window

[gnu-emacs-elpa] / beacon.el

diff --git a/beacon.el b/beacon.el
index ba47f18eaf2dde9a566190c9fb77048f23da3e47..149f6fbc76dfeddd6cfb3a26c9a3e228fadf89f6 100644 (file)
--- a/beacon.el
+++ b/beacon.el
@@ -243,9 +243,9 @@ If DELTA is nil, return nil."
         (beacon-blink))))
    ;; Blink for scrolling.
    ((and beacon-blink-when-window-scrolls
-         beacon--window-scrolled)
-    (with-selected-window beacon--window-scrolled
-      (beacon-blink))
+         beacon--window-scrolled
+         (equal beacon--window-scrolled (selected-window)))
+    (beacon-blink)
     (setq beacon--window-scrolled nil))
    ;; Blink for movement
    ((beacon--movement-> beacon-blink-when-point-moves)