[elpa] master 7294729 24/34: Don't blink on the minibuffer

[Artur Malabarba]

branch: master
commit 729472997f2a86eb14277c1f0c2fc94709ff8cb9
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    Don't blink on the minibuffer
---
 beacon.el |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/beacon.el b/beacon.el
index b9a7072..76d7652 100644
--- a/beacon.el
+++ b/beacon.el
@@ -218,11 +218,12 @@ Only returns `beacon-size' elements."
   "Blink the beacon at the position of the cursor."
   (interactive)
   (beacon--vanish)
-  (beacon--shine)
-  (setq beacon--timer
-        (run-at-time beacon-blink-delay
-                     (/ beacon-blink-duration 1.0 beacon-size)
-                     #'beacon--dec)))
+  (unless (window-minibuffer-p)
+    (beacon--shine)
+    (setq beacon--timer
+          (run-at-time beacon-blink-delay
+                       (/ beacon-blink-duration 1.0 beacon-size)
+                       #'beacon--dec))))
 
 
 ;;; Movement detection
@@ -261,8 +262,7 @@ If DELTA is nil, return nil."
    ((not (equal (marker-buffer beacon--previous-place)
                 (current-buffer)))
     (when beacon-blink-when-buffer-changes
-      (unless (window-minibuffer-p)
-        (beacon-blink))))
+      (beacon-blink)))
    ;; Blink for scrolling.
    ((and beacon-blink-when-window-scrolls
          beacon--window-scrolled