Mercurial > emacs

changeset 15510:db0f45c7f885

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-create-frame-with-faces): Set threshold for "light color" at .6 of the total for white.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Jun 1996 18:19:09 +0000
parents 015c38409ce5
children 530d0d516a42
files lisp/faces.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue Jun 25 18:15:12 1996 +0000
+++ b/lisp/faces.el	Tue Jun 25 18:19:09 1996 +0000
@@ -1101,7 +1101,10 @@
 		  ((< (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