Handle the remaining color locations

Some attributes that can be a color name weren’t converted from Solarized’s
symbols. E.g., `:box`, `:overline`, etc. Now they’re all handled.
This commit is contained in:
Greg Pfeil 2023-02-12 17:26:10 -07:00
parent 0aa7e06cee
commit 07369cf05c
No known key found for this signature in database
GPG Key ID: 1193ACD196ED61F2
1 changed files with 1 additions and 1 deletions

View File

@ -144,7 +144,7 @@ If LIGHT is non-nil, invert the base faces."
The colors are looked up in solarized-colors, and base colors are inverted if
LIGHT is non-nil."
(let ((new-fontspec (copy-sequence facespec)))
(dolist (property '(:foreground :background :color))
(dolist (property '(:background :box :color :foreground :overline :strike-through :underline))
(let ((color-name (plist-get new-fontspec property)))
(when (and color-name (symbolp color-name))
(plist-put new-fontspec