diff options
| author | Dave Love | 2000-03-12 15:25:35 +0000 |
|---|---|---|
| committer | Dave Love | 2000-03-12 15:25:35 +0000 |
| commit | 04c26901e2e10b145ca7facb7589a8192c56e280 (patch) | |
| tree | 3dc5948b98ba077b9c6f4b428702a70cc3d2bb7e | |
| parent | e1cff3605889d0a61994299de6ab0b79ad152427 (diff) | |
| download | emacs-04c26901e2e10b145ca7facb7589a8192c56e280.tar.gz emacs-04c26901e2e10b145ca7facb7589a8192c56e280.zip | |
(enriched-decode-foreground): Use display-color-p.
(enriched-decode-background): Likewise.
| -rw-r--r-- | lisp/enriched.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/enriched.el b/lisp/enriched.el index a7f3ad6cdf5..08c0cec8955 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el | |||
| @@ -443,7 +443,7 @@ Return value is \(begin end name positive-p), or nil if none was found." | |||
| 443 | (cond ((null color) | 443 | (cond ((null color) |
| 444 | (message "Warning: no color specified for <x-color>")) | 444 | (message "Warning: no color specified for <x-color>")) |
| 445 | ((internal-find-face face)) | 445 | ((internal-find-face face)) |
| 446 | ((and window-system (facemenu-get-face face))) | 446 | ((and (display-color-p) (facemenu-get-face face))) |
| 447 | ((make-face face) | 447 | ((make-face face) |
| 448 | (message "Warning: color `%s' can't be displayed" color))) | 448 | (message "Warning: color `%s' can't be displayed" color))) |
| 449 | (list from to 'face face))) | 449 | (list from to 'face face))) |
| @@ -453,7 +453,7 @@ Return value is \(begin end name positive-p), or nil if none was found." | |||
| 453 | (cond ((null color) | 453 | (cond ((null color) |
| 454 | (message "Warning: no color specified for <x-bg-color>")) | 454 | (message "Warning: no color specified for <x-bg-color>")) |
| 455 | ((internal-find-face face)) | 455 | ((internal-find-face face)) |
| 456 | ((and window-system (facemenu-get-face face))) | 456 | ((and (display-color-p) (facemenu-get-face face))) |
| 457 | ((make-face face) | 457 | ((make-face face) |
| 458 | (message "Warning: color `%s' can't be displayed" color))) | 458 | (message "Warning: color `%s' can't be displayed" color))) |
| 459 | (list from to 'face face))) | 459 | (list from to 'face face))) |