From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 13 Mar 2021 10:26:48 +0000 (+0200)
Subject: Extend support for faces in Enriched mode
X-Git-Tag: emacs-28.0.90~3290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa644996dfd67872a0271d5bf92dcaa44aba6469;p=emacs.git

Extend support for faces in Enriched mode

* lisp/textmodes/enriched.el (enriched-face-ans): Support faces
with bold and italic attributes.  (Bug#46507)
---

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))))
 
 ;;;