(enriched-decode-foreground, enriched-decode-background): Don't use

internal-find-face.

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 08c0cec89557b85e1ecbb6ded2f903872a9fa8fe..a6c11d1bc6bebea18918b41767a99b7305acd8b9 100644 (file)
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -442,7 +442,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
   (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 @@ Return value is \(begin end name positive-p), or nil if none was found."
   (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)))