From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 Nov 1995 23:15:55 +0000 (+0000)
Subject: (face-color-supported-p): Return nil if no window system.
X-Git-Tag: emacs-19.34~2251
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=055ff5a6af3c06faede206e63e9046e4b85b9e6b;p=emacs.git

(face-color-supported-p): Return nil if no window system.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 8d21556aed7..b4071cd4797 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1176,15 +1176,16 @@ selected frame."
 ;; Assuming COLOR is a valid color name,
 ;; return t if it can be displayed on FRAME.
 (defun face-color-supported-p (frame color background-p)
-  (or (x-display-color-p frame)
-      ;; A black-and-white display can implement these.
-      (member color '("black" "white"))
-      ;; A black-and-white display can fake gray for background.
-      (and background-p
-	   (face-color-gray-p color frame))
-      ;; A grayscale display can implement colors that are gray (more or less).
-      (and (x-display-grayscale-p frame)
-	   (face-color-gray-p color frame))))
+  (and window-system
+       (or (x-display-color-p frame)
+	   ;; A black-and-white display can implement these.
+	   (member color '("black" "white"))
+	   ;; A black-and-white display can fake gray for background.
+	   (and background-p
+		(face-color-gray-p color frame))
+	   ;; A grayscale display can implement colors that are gray (more or less).
+	   (and (x-display-grayscale-p frame)
+		(face-color-gray-p color frame)))))
 
 ;; Use FUNCTION to store a color in FACE on FRAME.
 ;; COLORS is either a single color or a list of colors.