branch: master
commit b56ef781d5a712fd06378f78eb9551ab9269bb2e
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
[Fix #14] Blink when Emacs frame is focused
---
beacon.el | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/beacon.el b/beacon.el
index 627dc2f..777e809 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)))
