diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-25 18:19:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-25 18:19:09 +0000 |
| commit | b8c631a53b264af8a7089bb0569051e7adc42646 (patch) | |
| tree | 855d1998320010d3910a0c1ff77f01a366b005fe | |
| parent | c1046d18cf18f0fd8ea85f362ebc1dc0f126f4df (diff) | |
| download | emacs-b8c631a53b264af8a7089bb0569051e7adc42646.tar.gz | |
(x-create-frame-with-faces): Set threshold for "light color"
at .6 of the total for white.
| -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 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 |