(popup-dialog-box): Don't quote nil and t in docstrings.

[gnu-emacs] / lisp / enriched.el

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 6322957df36a3b21f68f462fd99e63c372e805e0..e74cb6b8ba75f056f3f9a80619f3bbdd1eed427c 100644 (file)
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -432,19 +432,15 @@ Return value is \(begin end name positive-p), or nil if none was found."
       (delete-char 1)))
 
 (defun enriched-decode-foreground (from to &optional color)
-  (if (and color (display-color-p) (facemenu-get-face face))
-      (list from to 'face (cons ':foreground color))
-    (if (null color)
-       (message "Warning: no color specified for <x-color>")
-      (message "Warning: color `%s' can't be displayed" color))
+  (if color
+      (list from to 'face (list ':foreground color))
+    (message "Warning: no color specified for <x-color>")
     nil))
 
 (defun enriched-decode-background (from to &optional color)
-  (if (and color (display-color-p) (facemenu-get-face face))
-      (list from to 'face (cons ':background color))
-    (if (null color)
-       (message "Warning: no color specified for <x-bg-color>")
-      (message "Warning: color `%s' can't be displayed" color))
+  (if color
+      (list from to 'face (list ':background color))
+    (message "Warning: no color specified for <x-bg-color>")
     nil))
 \f
 ;;; Handling the `display' property.