Use display-color-p.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 49b5a386ac0aefebae0e9e3f86004ed1446fe0c6..17433030042267cbb7b0af42787aff75f1f2a008 100644 (file)
--- 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))