[elpa] master 74dc55e 2/9: Fix weird beacon color when point coincides with an overlay

[Artur Malabarba]

branch: master
commit 74dc55ebaf2df109c949f840b481cbf678372cc8
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>

    Fix weird beacon color when point coincides with an overlay
---
 beacon.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/beacon.el b/beacon.el
index 9e211e2..c2b5f6b 100644
--- a/beacon.el
+++ b/beacon.el
@@ -255,7 +255,10 @@ Only returns `beacon-size' elements."
 
 (defun beacon--color-range ()
   "Return a list of background colors for the beacon."
-  (let* ((default-bg (or (background-color-at-point)
+  (let* ((default-bg (or (save-excursion
+                           (forward-line 1)
+                           (forward-char -1)
+                           (background-color-at-point))
                          (face-background 'default)))
          (bg (color-values (if (string-match "\\`unspecified-" default-bg)
                                (face-attribute 'beacon-fallback-background 
:background)