the new name of face-color-supported-p.
(while all-colors
(setq this-color (car 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))))
defined-colors))
\f
(while all-colors
(setq this-color (car 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))))
defined-colors))
\f