From d8a6d2e4810a4072cabbf76170dc4bf708f27d10 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 11 Jun 2020 00:06:24 +0200 Subject: [PATCH] ; * lisp/faces.el (readable-foreground-color): Fix editing mistake. --- lisp/faces.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index 5ecc256f077..8c3e464cb86 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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) -- 2.39.5