diff options
author | Dave Love <[email protected]> | 2000-06-20 10:46:48 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2000-06-20 10:46:48 +0000 |
commit | 2f3f040a31fb7487880a880c693f1080cf26c976 (patch) | |
tree | d450e7d616721f02dd2503fc9eb803a3eebd02b0 /lisp/enriched.el | |
parent | 7a5348dbc9b1f1525462692901986722d528245b (diff) |
(enriched-decode-foreground, enriched-decode-background): Don't use
internal-find-face.
Diffstat (limited to 'lisp/enriched.el')
-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 08c0cec895..a6c11d1bc6 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))) |