diff options
author | Richard M. Stallman <[email protected]> | 1996-06-25 18:19:09 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1996-06-25 18:19:09 +0000 |
commit | b8c631a53b264af8a7089bb0569051e7adc42646 (patch) | |
tree | 855d1998320010d3910a0c1ff77f01a366b005fe /lisp | |
parent | c1046d18cf18f0fd8ea85f362ebc1dc0f126f4df (diff) |
(x-create-frame-with-faces): Set threshold for "light color"
at .6 of the total for white.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/faces.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 6489bbcfaa..003262e661 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 |