From 79b24da30bd5037e85ac9f9bfe5deffa4db9ce14 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 3 Jan 2000 11:58:12 +0000 Subject: [PATCH] (xw-defined-colors): Call color-supported-p, the new name of face-color-supported-p. --- lisp/term/w32-win.el | 2 +- lisp/term/x-win.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 5bff6c11117..849b0bd1a63 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -528,7 +528,7 @@ This returns ARGS with the arguments that have been processed removed." (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)) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 6b13f14cbb8..24a7da8708a 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -437,7 +437,7 @@ This function returns ARGS minus the arguments that have been processed." (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)) -- 2.39.5