[Emacs-diffs] master f195dd6: * lisp/faces.el: Remove duplicated functions from previous patch.

[Lars Ingebrigtsen]

branch: master
commit f195dd692bfc1911e85f92145df57a2dba460f58
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    * lisp/faces.el: Remove duplicated functions from previous patch.
---
 lisp/faces.el |   26 --------------------------
 1 files changed, 0 insertions(+), 26 deletions(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index b5e9fdc..c9cc611 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1818,32 +1818,6 @@ with the color they represent as background color."
        "black"
       "white")))
 
-(defun defined-colors-with-face-attributes (&optional frame)
-  "Return a list of colors supported for a particular frame.
-See `defined-colors' for arguments and return value. In contrast
-to `define-colors' the elements of the returned list are color
-strings with text properties, that make the color names render
-with the color they represent as background color."
-  (mapcar
-   (lambda (color-name)
-     (let ((foreground (readable-foreground-color color-name))
-          (color      (copy-sequence color-name)))
-       (propertize color 'face (list :foreground foreground
-                                    :background color))))
-   (defined-colors frame)))
-
-(defun readable-foreground-color (color)
-  "Return a readable foreground color for background COLOR."
-  (let* ((rgb   (color-values color))
-        (max   (apply #'max rgb))
-        (black (car (color-values "black")))
-        (white (car (color-values "white"))))
-    ;; Select black or white depending on which one is less similar to
-    ;; the brightest component.
-    (if (> (abs (- max black)) (abs (- max white)))
-       "black"
-      "white")))
-
 (declare-function xw-color-defined-p "xfns.c" (color &optional frame))
 
 (defun color-defined-p (color &optional frame)