From: Mattias Engdegård <mattiase@acm.org>
Date: Wed, 10 Jun 2020 22:06:24 +0000 (+0200)
Subject: ; * lisp/faces.el (readable-foreground-color): Fix editing mistake.
X-Git-Tag: emacs-28.0.90~7181
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8a6d2e4810a4072cabbf76170dc4bf708f27d10;p=emacs.git

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

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)