Mercurial > emacs

changeset 44415:c9f374d3e6f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enriched-decode-foreground, enriched-decode-background): Use proper format for desired elts of `face' property. Don't test display-color-p; make the properties unconditionally.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Apr 2002 16:09:26 +0000
parents d6c61dd7b4af
children 1417ace60dd8
files lisp/enriched.el
diffstat 1 files changed, 6 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/enriched.el	Sat Apr 06 15:57:47 2002 +0000
+++ b/lisp/enriched.el	Sat Apr 06 16:09:26 2002 +0000
@@ -432,19 +432,15 @@
       (delete-char 1)))
 
 (defun enriched-decode-foreground (from to &optional color)
-  (if (and color (display-color-p))
-      (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))
-      (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))
 
 ;;; Handling the `display' property.