mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases 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)