Commit 79b24da3 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(xw-defined-colors): Call color-supported-p,

the new name of face-color-supported-p.
parent da47150d
...@@ -528,7 +528,7 @@ This returns ARGS with the arguments that have been processed removed." ...@@ -528,7 +528,7 @@ This returns ARGS with the arguments that have been processed removed."
(while all-colors (while all-colors
(setq this-color (car all-colors) (setq this-color (car all-colors)
all-colors (cdr all-colors)) all-colors (cdr all-colors))
(and (face-color-supported-p frame this-color t) (and (color-supported-p this-color frame t)
(setq defined-colors (cons this-color defined-colors)))) (setq defined-colors (cons this-color defined-colors))))
defined-colors)) defined-colors))
......
...@@ -437,7 +437,7 @@ This function returns ARGS minus the arguments that have been processed." ...@@ -437,7 +437,7 @@ This function returns ARGS minus the arguments that have been processed."
(while all-colors (while all-colors
(setq this-color (car all-colors) (setq this-color (car all-colors)
all-colors (cdr all-colors)) all-colors (cdr all-colors))
(and (face-color-supported-p frame this-color t) (and (color-supported-p this-color frame t)
(setq defined-colors (cons this-color defined-colors)))) (setq defined-colors (cons this-color defined-colors))))
defined-colors)) defined-colors))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment