Commit b8c631a5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

at .6 of the total for white.
parent c1046d18
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment