From b8c631a53b264af8a7089bb0569051e7adc42646 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 Jun 1996 18:19:09 +0000 Subject: [PATCH] (x-create-frame-with-faces): Set threshold for "light color" at .6 of the total for white. --- lisp/faces.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.2