(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)