From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 22 Jun 1996 16:51:43 +0000 (+0000)
Subject: (font-lock-make-faces):  Set threshold for "light color"
X-Git-Tag: emacs-19.34~377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f42b62e4b86ee20a01cb089340ae5996e64a8b43;p=emacs.git

(font-lock-make-faces):  Set threshold for "light color"
at .6 of the total for white.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 388efef6d6c..f97722ac311 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -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)