From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 20 Oct 2015 20:59:26 +0000 (+0100)
Subject: [Fix #14] Blink when Emacs frame is focused
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/b56ef781d5a712fd06378f78eb9551ab9269bb2e

[Fix #14] Blink when Emacs frame is focused
---

diff --git a/beacon.el b/beacon.el
index 627dc2f89..777e80998 100644
--- a/beacon.el
+++ b/beacon.el
@@ -350,8 +350,10 @@ unreliable, so just blink immediately."
   (if beacon-mode
       (progn
         (add-hook 'window-scroll-functions #'beacon--window-scroll-function)
+        (add-hook 'focus-in-hook #'beacon-blink)
         (add-hook 'post-command-hook #'beacon--post-command)
         (add-hook 'pre-command-hook #'beacon--vanish))
+    (remove-hook 'focus-in-hook #'beacon-blink)
     (remove-hook 'window-scroll-functions #'beacon--window-scroll-function)
     (remove-hook 'post-command-hook #'beacon--post-command)
     (remove-hook 'pre-command-hook #'beacon--vanish)))