diff options
| author | Dave Love | 2000-03-12 15:27:33 +0000 |
|---|---|---|
| committer | Dave Love | 2000-03-12 15:27:33 +0000 |
| commit | 27cd44bcfae3ac38b85019bc1e18cb5e8e53e3d8 (patch) | |
| tree | 2507f6091416441f1ef198f97e6860a41017d409 | |
| parent | 04c26901e2e10b145ca7facb7589a8192c56e280 (diff) | |
| download | emacs-27cd44bcfae3ac38b85019bc1e18cb5e8e53e3d8.tar.gz emacs-27cd44bcfae3ac38b85019bc1e18cb5e8e53e3d8.zip | |
Use display-color-p.
| -rw-r--r-- | lisp/facemenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 614 | (let ((name (symbol-name symbol)) | 614 | (let ((name (symbol-name symbol)) |
| 615 | foreground) | 615 | foreground) |
| 616 | (cond ((internal-find-face symbol)) | 616 | (cond ((internal-find-face symbol)) |
| 617 | ((and window-system | 617 | ((and (display-color-p) |
| 618 | (or (setq foreground (string-match "^fg:" name)) | 618 | (or (setq foreground (string-match "^fg:" name)) |
| 619 | (string-match "^bg:" name))) | 619 | (string-match "^bg:" name))) |
| 620 | (let ((face (make-face symbol)) | 620 | (let ((face (make-face symbol)) |