Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 19:37:58 +00:00
Code Issues Projects Releases Packages Wiki Activity

; * lisp/faces.el (readable-foreground-color): Fix editing mistake.

Browse source
This commit is contained in:
Mattias Engdegård 2020-06-11 00:06:24 +02:00
parent 68ae6faa7f
commit d8a6d2e481
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/faces.el
View file

@ -1790,7 +1790,8 @@ The returned value is a string representing black or white, depending
on which one provides better contrast with COLOR."
;; We use #ffffff instead of "white", because the latter is sometimes
;; less than white. That way, we get the best contrast possible.
(if (color-dark-p (mapcar (lambda (c) (/ c 65535.0)) color))
(if (color-dark-p (mapcar (lambda (c) (/ c 65535.0))
(color-values color)))
"#ffffff" "black"))
(defun color-dark-p (rgb)