# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835726749 0
# Node ID db0f45c7f885c78dfbe711d02f82d0f7bb9a1df0
# Parent  015c38409ce5801d95de4c8e23b3a16ce5775ccb
(x-create-frame-with-faces): Set threshold for "light color"
at .6 of the total for white.

diff -r 015c38409ce5 -r db0f45c7f885 lisp/faces.el
--- a/lisp/faces.el	Tue Jun 25 18:15:12 1996 +0000
+++ b/lisp/faces.el	Tue Jun 25 18:19:09 1996 +0000
@@ -1101,7 +1101,10 @@
 		  ((< (apply '+ (x-color-values
 				 (cdr (assq 'background-color params))
 				 frame))
-		      (/ (apply '+ (x-color-values "white" frame)) 3))
+		      ;; Just looking at the screen,
+		      ;; colors whose values add up to .6 of the white total
+		      ;; still look dark to me.
+		      (* (apply '+ (x-color-values "white" frame)) .6))
 		   'dark)
 		  (t 'light)))
       (modify-frame-parameters frame