[Fix #14] Blink when Emacs frame is focused

[gnu-emacs-elpa] / beacon.el

diff --git a/beacon.el b/beacon.el
index 54b11e402e11be6626ad74eb64c4db105cb0efcf..777e809985bf90754e8aedb908b345b1e7e2ccd9 100644 (file)
--- a/beacon.el
+++ b/beacon.el
@@ -350,11 +350,17 @@ 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)))
 
 (provide 'beacon)
 ;;; beacon.el ends here
+
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End: