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