# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1004358327 0
# Node ID 0af29fd7072d0dfc5db2afdd9a3d91f24279dbf5
# Parent  024f6efc3f87247723628c255296f61584a85c7a
(enriched-face-ans): Handle face attributes
of the form `(FACE1 FACE2 ...).

diff -r 024f6efc3f87 -r 0af29fd7072d lisp/enriched.el
--- a/lisp/enriched.el	Mon Oct 29 12:21:56 2001 +0000
+++ b/lisp/enriched.el	Mon Oct 29 12:25:27 2001 +0000
@@ -352,6 +352,12 @@
 	 (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))