[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master e3df6b5 1/3: Fix #49 - Don't vanish the beacon due to chan
From: |
Artur Malabarba |
Subject: |
[elpa] master e3df6b5 1/3: Fix #49 - Don't vanish the beacon due to changes in the Echo Area |
Date: |
Fri, 27 May 2016 00:52:46 +0000 (UTC) |
branch: master
commit e3df6b5cf259a38bb2c0188cc70c7ca0f8e957eb
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Fix #49 - Don't vanish the beacon due to changes in the Echo Area
---
beacon.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/beacon.el b/beacon.el
index 8126c43..6b71ee0 100644
--- a/beacon.el
+++ b/beacon.el
@@ -242,10 +242,12 @@ COLORS applied to each one."
(defun beacon--vanish (&rest _)
"Turn off the beacon."
- (when (timerp beacon--timer)
- (cancel-timer beacon--timer))
- (mapc #'delete-overlay beacon--ovs)
- (setq beacon--ovs nil))
+ (unless (string-match "\\` \\*\\(temp-buffer\\|Echo Area.*\\)\\*"
+ (buffer-name))
+ (when (timerp beacon--timer)
+ (cancel-timer beacon--timer))
+ (mapc #'delete-overlay beacon--ovs)
+ (setq beacon--ovs nil)))
;;; Colors