Mercurial > emacs
changeset 40442:0af29fd7072d
(enriched-face-ans): Handle face attributes
of the form `(FACE1 FACE2 ...).
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 29 Oct 2001 12:25:27 +0000 |
| parents | 024f6efc3f87 |
| children | 56bff1d567d6 |
| files | lisp/enriched.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))