From: Dave Love <fx@gnu.org>
Date: Tue, 20 Jun 2000 10:46:48 +0000 (+0000)
Subject: (enriched-decode-foreground, enriched-decode-background): Don't use
X-Git-Tag: emacs-pretest-21.0.90~3221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f3f040a31fb7487880a880c693f1080cf26c976;p=emacs.git

(enriched-decode-foreground, enriched-decode-background): Don't use
internal-find-face.
---

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 08c0cec8955..a6c11d1bc6b 100644
--- 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)))