procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extend support for faces in Enriched mode

Browse source 
* lisp/textmodes/enriched.el (enriched-face-ans): Support faces
with bold and italic attributes.  (Bug#46507)
This commit is contained in:
Eli Zaretskii 2021-03-13 12:26:48 +02:00
parent 82e3acc9cd
commit aa644996df
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/enriched.el
View file

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