From: Dave Love <fx@gnu.org>
Date: Sun, 12 Mar 2000 15:27:33 +0000 (+0000)
Subject: Use display-color-p.
X-Git-Tag: emacs-pretest-21.0.90~4672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27cd44bcfae3ac38b85019bc1e18cb5e8e53e3d8;p=emacs.git

Use display-color-p.
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 49b5a386ac0..17433030042 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -614,7 +614,7 @@ no color is set and a warning is issued."
   (let ((name (symbol-name symbol))
 	foreground)
     (cond ((internal-find-face symbol))
-	  ((and window-system
+	  ((and (display-color-p)
 		(or (setq foreground (string-match "^fg:" name))
 		    (string-match "^bg:" name)))
 	   (let ((face (make-face symbol))