# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 961498008 0
# Node ID 2ec1f951079102abc3b526e3a34a082ba5b9b0cc
# Parent  dbfcedec53b38db90cf0549c69980f8bfb14dfec
(enriched-decode-foreground, enriched-decode-background): Don't use
internal-find-face.

diff -r dbfcedec53b3 -r 2ec1f9510791 lisp/enriched.el
--- a/lisp/enriched.el	Tue Jun 20 09:58:07 2000 +0000
+++ b/lisp/enriched.el	Tue Jun 20 10:46:48 2000 +0000
@@ -442,7 +442,7 @@
   (let ((face (intern (concat "fg:" color))))
     (cond ((null color)
 	   (message "Warning: no color specified for <x-color>"))
-	  ((internal-find-face face))
+	  ((facep face))
 	  ((and (display-color-p) (facemenu-get-face face)))
 	  ((make-face face)
 	   (message "Warning: color `%s' can't be displayed" color)))
@@ -452,7 +452,7 @@
   (let ((face (intern (concat "bg:" color))))
     (cond ((null color)
 	   (message "Warning: no color specified for <x-bg-color>"))
-	  ((internal-find-face face))
+	  ((facep face))
 	  ((and (display-color-p) (facemenu-get-face face)))
 	  ((make-face face)
 	   (message "Warning: color `%s' can't be displayed" color)))