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 | 7a07c9a0c793f278d648d7b346931900e782616e (patch) | |
| tree | ba45b89f0391fb7158b3385c3cb5072d9bc6b49f /lisp/faces.el | |
| parent | 2b3435b251ddcc4f60b70f8b177b8451671d354a (diff) | |
| download | emacs-7a07c9a0c793f278d648d7b346931900e782616e.tar.gz | |
(x-create-frame-with-faces): Set threshold for "light color"
at .6 of the total for white.
Diffstat (limited to 'lisp/faces.el')
| -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 |