From b1d9c2cff4878c64b8ccada19fe673a3f4edeedb Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 29 Oct 2001 12:26:42 +0000 Subject: [PATCH] (enriched-face-ans): Handle face attributes of the form `(FACE1 FACE2 ...). --- lisp/enriched.el | 6 ++++++ 1 file changed, 6 insertions(+) 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)) -- 2.39.2