[elpa] master 79e8c2c 2/4: Fix #34 background-color-at-point isn't 100% reliable

[Artur Malabarba]

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

    Fix #34 background-color-at-point isn't 100% reliable
---
 beacon.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/beacon.el b/beacon.el
index be77a38..9a9f816 100644
--- a/beacon.el
+++ b/beacon.el
@@ -236,7 +236,8 @@ Only returns `beacon-size' elements."
 
 (defun beacon--color-range ()
   "Return a list of background colors for the beacon."
-  (let* ((default-bg (background-color-at-point))
+  (let* ((default-bg (or (background-color-at-point)
+                         (face-background 'default)))
          (bg (color-values (if (string-match "\\`unspecified-" default-bg)
                                (face-attribute 'beacon-fallback-background 
:background)
                              default-bg)))