]> code.delx.au - gnu-emacs-elpa/commitdiff
Try again to fix the case of no bg color
authorArtur Malabarba <bruce.connor.am@gmail.com>
Sat, 5 Dec 2015 18:03:20 +0000 (18:03 +0000)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Sat, 5 Dec 2015 18:03:20 +0000 (18:03 +0000)
beacon.el

index c0bb43fb47c56b73b944711a52e7786b9a3351d3..4d4e58b2d88bb9f9c9e9d8db3053e106c875861f 100644 (file)
--- a/beacon.el
+++ b/beacon.el
@@ -262,7 +262,8 @@ Only returns `beacon-size' elements."
                                (forward-char -1)))
                            (background-color-at-point))
                          (face-background 'default)))
-         (bg (color-values (if (string-match "\\`unspecified-" default-bg)
+         (bg (color-values (if (or (not (stringp default-bg))
+                                   (string-match "\\`unspecified-" default-bg))
                                (face-attribute 'beacon-fallback-background :background)
                              default-bg)))
          (fg (cond