From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Oct 2015 13:33:39 +0000 (+0100)
Subject: Only blink selected window
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/6f647f60c5b289cb593de779c9ee79ff88089a89

Only blink selected window
---

diff --git a/beacon.el b/beacon.el
index ba47f18ea..149f6fbc7 100644
--- 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)