(x-create-frame-with-faces): Set threshold for "light color"

at .6 of the total for white.

(x-create-frame-with-faces): Set threshold for "light color"
at .6 of the total for white.
b8c631a5 · Richard M. Stallman · c1046d18 · b8c631a5
Commit b8c631a5 authored Jun 25, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/faces.el lisp/faces.el +4 -1

No files found.
--- 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