Use display-color-p.

This commit is contained in:
Dave Love 2000-03-12 15:27:33 +00:00
parent 04c26901e2
commit 27cd44bcfa

View file

@ -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))