From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 21 Feb 2000 12:57:42 +0000 (+0000)
Subject: (enriched-face-ans): Handle '(foreground-color
X-Git-Tag: emacs-pretest-21.0.90~4944
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed58ed834c342bb2dc4fc7f4e70d34d0e782173a;p=emacs.git

(enriched-face-ans): Handle '(foreground-color
. COLOR) and (background-color . COLOR).
---

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 50f919e12cc..a7f3ad6cdf5 100644
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -348,7 +348,11 @@ One annotation each for foreground color, background color, italic, etc."
 	    
 (defun enriched-face-ans (face)
   "Return annotations specifying FACE."
-  (cond ((string-match "^fg:" (symbol-name face))
+  (cond ((and (consp face) (eq (car face) 'foreground-color))
+	 (list "x-color" (cdr face)))
+	((and (consp face) (eq (car face) 'background-color))
+	 (list "x-bg-color" (cdr face)))
+	((string-match "^fg:" (symbol-name face))
 	 (list (list "x-color" (substring (symbol-name face) 3))))
 	((string-match "^bg:" (symbol-name face))
 	 (list (list "x-bg-color" (substring (symbol-name face) 3))))