# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835462303 0
# Node ID d3b17e7049bf5c56714c7a9b32507540a9131089
# Parent  e3f8bfd1bb1f24f6b79bce109bfc5999dd1d01b7
(font-lock-make-faces):  Set threshold for "light color"
at .6 of the total for white.

diff -r e3f8bfd1bb1f -r d3b17e7049bf lisp/font-lock.el
--- a/lisp/font-lock.el	Sat Jun 22 04:50:32 1996 +0000
+++ b/lisp/font-lock.el	Sat Jun 22 16:51:43 1996 +0000
@@ -1181,7 +1181,7 @@
 		       '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)