[elpa] master e3ab5c3 02/11: Improve documentation

[Artur Malabarba]

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

    Improve documentation
---
 beacon.el |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/beacon.el b/beacon.el
index eb08d1a..ffdbcbc 100644
--- a/beacon.el
+++ b/beacon.el
@@ -44,13 +44,6 @@
   :group 'emacs
   :prefix "beacon-")
 
-(defface beacon-fallback
-  '((((class color) (background light))
-     (:background "black"))
-    (((class color) (background dark))
-     (:background "white")))
-  "Fallback background color")
-
 (defvar beacon--timer nil)
 
 (defcustom beacon-push-mark 35
@@ -110,6 +103,13 @@ If it is a string, it is a color name or specification,
 e.g. \"#666600\"."
   :type '(choice number color))
 
+(defface beacon-fallback-background
+  '((((class color) (background light)) (:background "black"))
+    (((class color) (background dark)) (:background "white")))
+  "Fallback beacon background color.
+Used in cases where the color can't be determined by Emacs.
+Only the background of this face is used.")
+
 (defvar beacon-dont-blink-predicates nil
   "A list of predicates that prevent the beacon blink.
 These predicate functions are called in order, with no
@@ -229,8 +229,8 @@ Only returns `beacon-size' elements."
 (defun beacon--color-range ()
   "Return a list of background colors for the beacon."
   (let* ((default-bg (face-attribute 'default :background))
-         (bg (color-values (if (string-prefix-p "unspecified" default-bg)
-                               (face-attribute 'beacon-fallback :background)
+         (bg (color-values (if (string-match "\\`unspecified-" default-bg)
+                               (face-attribute 'beacon-fallback-background 
:background)
                              default-bg)))
          (fg (cond
               ((stringp beacon-color) (color-values beacon-color))