Mercurial > emacs
changeset 28111:90875cd704b5
Use display-color-p.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 12 Mar 2000 15:27:33 +0000 |
| parents | 7f4fe6e367dc |
| children | 853a7fcaf7f0 |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))