]> code.delx.au - gnu-emacs-elpa/commitdiff
Merge commit 'aaeb619f1ff57e666925bcef22bb3195c22d589e'
authorArtur Malabarba <bruce.connor.am@gmail.com>
Fri, 27 May 2016 00:52:37 +0000 (21:52 -0300)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Fri, 27 May 2016 00:52:37 +0000 (21:52 -0300)
1  2 
packages/beacon/beacon.el

index 8126c43448c824665a1655d4f9b32169db4d1af0,9a3edacb1404affab6eefabca27d3d2cd9c032a6..9a3edacb1404affab6eefabca27d3d2cd9c032a6
@@@ -5,7 -5,7 +5,7 @@@
  ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
  ;; URL: https://github.com/Malabarba/beacon
  ;; Keywords: convenience
- ;; Version: 1.3.0
+ ;; Version: 1.3.1
  ;; Package-Requires: ((seq "2.14"))
  
  ;; This program is free software; you can redistribute it and/or modify
@@@ -242,10 -242,12 +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)))
  
  \f
  ;;; Colors