[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 79e8c2c 2/4: Fix #34 background-color-at-point isn't 100%
From: |
Artur Malabarba |
Subject: |
[elpa] master 79e8c2c 2/4: Fix #34 background-color-at-point isn't 100% reliable |
Date: |
Sat, 31 Oct 2015 06:36:18 +0000 |
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)))