mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(x-create-frame-with-faces): Set threshold for "light color"

Browse Source 
at .6 of the total for white.
This commit is contained in:
Richard M. Stallman 1996-06-25 18:19:09 +00:00
parent c1046d18cf
commit b8c631a53b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/faces.el
View File

@ -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