From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 29 Oct 2001 12:25:27 +0000 (+0000)
Subject: (enriched-face-ans): Handle face attributes
X-Git-Tag: ttn-vms-21-2-B4~19052
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=426b5652c663971aeb8c266a4b24a4e831ac17ea;p=emacs.git

(enriched-face-ans): Handle face attributes
of the form `(FACE1 FACE2 ...).
---

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 8f4bf4f0392..48baaca2b2f 100644
--- a/lisp/enriched.el
+++ b/lisp/enriched.el
@@ -352,6 +352,12 @@ One annotation each for foreground color, background color, italic, etc."
 	 (list (list "x-color" (cdr face))))
 	((and (consp face) (eq (car face) 'background-color))
 	 (list (list "x-bg-color" (cdr face))))
+	((and (consp face) (symbolp (car face)) (not (keywordp (car face))))
+	 ;; List of faces `(face1 face2 ...)'.
+	 (let ((ans nil))
+	   (dolist (elt face)
+	     (setq ans (append ans (enriched-face-ans elt))))
+	   ans))
 	((string-match "^fg:" (symbol-name face))
 	 (list (list "x-color" (substring (symbol-name face) 3))))
 	((string-match "^bg:" (symbol-name face))