# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952874853 0
# Node ID 90875cd704b55369af8e26e242f183b7c4b0237d
# Parent  7f4fe6e367dcc56542464a65822dfc4d443d8c94
Use display-color-p.

diff -r 7f4fe6e367dc -r 90875cd704b5 lisp/facemenu.el
--- a/lisp/facemenu.el	Sun Mar 12 15:25:35 2000 +0000
+++ b/lisp/facemenu.el	Sun Mar 12 15:27:33 2000 +0000
@@ -614,7 +614,7 @@
   (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))