[Fix #14] Blink when Emacs frame is focused

diff --git a/beacon.el b/beacon.el
index 627dc2f8948022d44da3bd14a484b2ee07cfd04b..777e809985bf90754e8aedb908b345b1e7e2ccd9 100644 (file)
--- 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)
   (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))
         (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)))
     (remove-hook 'window-scroll-functions #'beacon--window-scroll-function)
     (remove-hook 'post-command-hook #'beacon--post-command)
     (remove-hook 'pre-command-hook #'beacon--vanish)))