From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Jun 1996 18:19:09 +0000 (+0000)
Subject: (x-create-frame-with-faces): Set threshold for "light color"
X-Git-Tag: emacs-19.34~352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8c631a53b264af8a7089bb0569051e7adc42646;p=emacs.git

(x-create-frame-with-faces): Set threshold for "light color"
at .6 of the total for white.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 6489bbcfaa7..003262e6610 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1101,7 +1101,10 @@ selected frame."
 		  ((< (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