[elpa] master 31ded26 3/5: Don't blink in compilation modes

[Artur Malabarba]

branch: master
commit 31ded26892f2bd2a62d14e027c27986c5a164f8f
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Don't blink in compilation modes
---
 beacon.el |    6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/beacon.el b/beacon.el
index 93e6646..51bb677 100644
--- a/beacon.el
+++ b/beacon.el
@@ -147,7 +147,13 @@ For instance, if you want to disable beacon on buffers 
where
     (add-hook \\='beacon-dont-blink-predicates
               (lambda () (bound-and-true-p hl-line-mode)))")
 
+(defun beacon--compilation-mode-p ()
+  "Non-nil if this is some form of compilation mode."
+  (or (derived-mode-p 'compilation-mode)
+      (bound-and-true-p compilation-minor-mode)))
+
 (add-hook 'beacon-dont-blink-predicates #'window-minibuffer-p)
+(add-hook 'beacon-dont-blink-predicates #'beacon--compilation-mode-p)
 
 (defcustom beacon-dont-blink-major-modes '(t magit-status-mode magit-popup-mode
                                        inf-ruby-mode