(enriched-decode-foreground, enriched-decode-background):

Test of facemenu-get-face return value no longer needed.

diff --git a/lisp/enriched.el b/lisp/enriched.el
index fdae2ac8303805b22e319ef561df67036c880ae1..6bcfe144df3d1061bcb0ec5ae9398c22ebb32c8b 100644 (file)
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -437,8 +437,6 @@ Return value is \(begin end name positive-p), or nil if none was found."
           (message "Warning: no color specified for <x-color>"))
          ((internal-find-face face))
          ((and window-system (facemenu-get-face face)))
-         (window-system
-          (message "Warning: color `%s' is not defined" color))
          ((make-face face)
           (message "Warning: color `%s' can't be displayed" color)))
     (list from to 'face face)))
@@ -449,8 +447,6 @@ Return value is \(begin end name positive-p), or nil if none was found."
           (message "Warning: no color specified for <x-bg-color>"))
          ((internal-find-face face))
          ((and window-system (facemenu-get-face face)))
-         (window-system
-          (message "Warning: color `%s' is not defined" color))
          ((make-face face)
           (message "Warning: color `%s' can't be displayed" color)))
     (list from to 'face face)))