From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 3 Jan 2000 11:58:12 +0000 (+0000)
Subject: (xw-defined-colors): Call color-supported-p,
X-Git-Tag: emacs-pretest-21.0.90~5545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79b24da30bd5037e85ac9f9bfe5deffa4db9ce14;p=emacs.git

(xw-defined-colors): Call color-supported-p,
the new name of face-color-supported-p.
---

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))