From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Apr 2002 20:46:55 +0000 (+0000)
Subject: (enriched-decode-foreground)
X-Git-Tag: ttn-vms-21-2-B4~15783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=938004b3c1a93d44d358981452635c256d1a5b37;p=emacs.git

(enriched-decode-foreground)
(enriched-decode-background): Don't call facemenu-get-face.
---

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 6322957df36..8edf7c730e2 100644
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -432,7 +432,7 @@ 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))
+  (if (and color (display-color-p))
       (list from to 'face (cons ':foreground color))
     (if (null color)
 	(message "Warning: no color specified for <x-color>")
@@ -440,7 +440,7 @@ Return value is \(begin end name positive-p), or nil if none was found."
     nil))
 
 (defun enriched-decode-background (from to &optional color)
-  (if (and color (display-color-p) (facemenu-get-face face))
+  (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>")