diff options
| -rw-r--r-- | lisp/faces.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
| 1790 | on which one provides better contrast with COLOR." | 1790 | on which one provides better contrast with COLOR." |
| 1791 | ;; We use #ffffff instead of "white", because the latter is sometimes | 1791 | ;; We use #ffffff instead of "white", because the latter is sometimes |
| 1792 | ;; less than white. That way, we get the best contrast possible. | 1792 | ;; less than white. That way, we get the best contrast possible. |
| 1793 | (if (color-dark-p (mapcar (lambda (c) (/ c 65535.0)) color)) | 1793 | (if (color-dark-p (mapcar (lambda (c) (/ c 65535.0)) |
| 1794 | (color-values color))) | ||
| 1794 | "#ffffff" "black")) | 1795 | "#ffffff" "black")) |
| 1795 | 1796 | ||
| 1796 | (defun color-dark-p (rgb) | 1797 | (defun color-dark-p (rgb) |