Only vanish beacon if the buffer is visible - #60 again

Malabarba · Jul 6, 2018 · 8dfe644 · 8dfe644
1 parent fc63ae6
commit 8dfe644
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/beacon.el b/beacon.el
@@ -249,13 +249,11 @@ COLORS applied to each one."
 
 (defun beacon--vanish (&rest _)
   "Turn off the beacon."
-  (save-match-data
-    (unless (string-match "\\` *\\*\\(temp\\|temp-buffer\\|Echo Area.*\\)\\*"
-                          (buffer-name))
-      (when (timerp beacon--timer)
-        (cancel-timer beacon--timer))
-      (mapc #'delete-overlay beacon--ovs)
-      (setq beacon--ovs nil))))
+  (when (get-buffer-window)
+    (when (timerp beacon--timer)
+      (cancel-timer beacon--timer))
+    (mapc #'delete-overlay beacon--ovs)
+    (setq beacon--ovs nil)))
 
 
 ;;; Colors