From 055ff5a6af3c06faede206e63e9046e4b85b9e6b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Nov 1995 23:15:55 +0000 Subject: [PATCH] (face-color-supported-p): Return nil if no window system. --- lisp/faces.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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. -- 2.39.2