# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952874735 0
# Node ID 7f4fe6e367dcc56542464a65822dfc4d443d8c94
# Parent  2f4ab9eb303c2fda3c54a534d591556c60871852
(enriched-decode-foreground): Use display-color-p.
(enriched-decode-background): Likewise.

diff -r 2f4ab9eb303c -r 7f4fe6e367dc lisp/enriched.el
--- a/lisp/enriched.el	Sun Mar 12 15:22:51 2000 +0000
+++ b/lisp/enriched.el	Sun Mar 12 15:25:35 2000 +0000
@@ -443,7 +443,7 @@
     (cond ((null color)
 	   (message "Warning: no color specified for <x-color>"))
 	  ((internal-find-face face))
-	  ((and window-system (facemenu-get-face face)))
+	  ((and (display-color-p) (facemenu-get-face face)))
 	  ((make-face face)
 	   (message "Warning: color `%s' can't be displayed" color)))
     (list from to 'face face)))
@@ -453,7 +453,7 @@
     (cond ((null color)
 	   (message "Warning: no color specified for <x-bg-color>"))
 	  ((internal-find-face face))
-	  ((and window-system (facemenu-get-face face)))
+	  ((and (display-color-p) (facemenu-get-face face)))
 	  ((make-face face)
 	   (message "Warning: color `%s' can't be displayed" color)))
     (list from to 'face face)))