]> git.eshelyaron.com Git - emacs.git/commitdiff
(font-lock-make-faces): Set threshold for "light color"
authorRichard M. Stallman <rms@gnu.org>
Sat, 22 Jun 1996 16:51:43 +0000 (16:51 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 22 Jun 1996 16:51:43 +0000 (16:51 +0000)
at .6 of the total for white.

lisp/font-lock.el

index 388efef6d6c644dc653d52927433713731e35a0b..f97722ac311edf945512d3228341d589e67f0280 100644 (file)
@@ -1181,7 +1181,7 @@ See `font-lock-make-face' and `list-faces-display'."
                       'dark))
                    ((< (apply '+ (x-color-values
                                   (cdr (assq 'background-color params))))
-                       (/ (apply '+ (x-color-values "white")) 3))
+                       (* (apply '+ (x-color-values "white")) .6))
                     'dark)
                    (t 'light)))))
   (if (null font-lock-face-attributes)