From aa644996dfd67872a0271d5bf92dcaa44aba6469 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 13 Mar 2021 12:26:48 +0200 Subject: [PATCH] Extend support for faces in Enriched mode * lisp/textmodes/enriched.el (enriched-face-ans): Support faces with bold and italic attributes. (Bug#46507) --- lisp/textmodes/enriched.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el index c44b69cdb73..e43370cdb56 100644 --- a/lisp/textmodes/enriched.el +++ b/lisp/textmodes/enriched.el @@ -389,6 +389,8 @@ which can be the value of the `face' text property." (apply 'append (mapcar 'enriched-face-ans face))) ((let* ((fg (face-attribute face :foreground)) (bg (face-attribute face :background)) + (weight (face-attribute face :weight)) + (slant (face-attribute face :slant)) (props (face-font face t)) (ans (cdr (format-annotate-single-property-change 'face nil props enriched-translations)))) @@ -396,6 +398,10 @@ which can be the value of the `face' text property." (setq ans (cons (list "x-color" fg) ans))) (unless (eq bg 'unspecified) (setq ans (cons (list "x-bg-color" bg) ans))) + (if (eq weight 'bold) + (setq ans (cons (list "bold") ans))) + (if (eq slant 'italic) + (setq ans (cons (list "italic") ans))) ans)))) ;;; -- 2.39.2