From 27cd44bcfae3ac38b85019bc1e18cb5e8e53e3d8 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 12 Mar 2000 15:27:33 +0000 Subject: [PATCH] Use display-color-p. --- lisp/facemenu.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5