Default background color is unspecified-fg or unspecified-bg if emacs runs in
no-window mode(emacs -nw). '(color-values "unspecified-[fb]g")' returns nil
and beacon--color-range raises error.
Applying this patch uses fallback color instead of default background color.
Copyright-paperwork-exempt: yes
:group 'emacs
:prefix "beacon-")
: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
(defvar beacon--timer nil)
(defcustom beacon-push-mark 35
(defun beacon--color-range ()
"Return a list of background colors for the beacon."
(defun beacon--color-range ()
"Return a list of background colors for the beacon."
- (let* ((bg (color-values (face-attribute 'default :background)))
+ (let* ((default-bg (face-attribute 'default :background))
+ (bg (color-values (if (string-prefix-p "unspecified" default-bg)
+ (face-attribute 'beacon-fallback :background)
+ default-bg)))
(fg (cond
((stringp beacon-color) (color-values beacon-color))
((< (color-distance "black" bg)
(fg (cond
((stringp beacon-color) (color-values beacon-color))
((< (color-distance "black" bg)