branch: externals/show-font
commit 65131657b499d779c20db6c4436410b4f17fbfb7
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Make show-font--prepare-text show italic, bold, and bold-italic as well
---
show-font.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/show-font.el b/show-font.el
index 757bb23ab4..ffa289e2b0 100644
--- a/show-font.el
+++ b/show-font.el
@@ -316,7 +316,13 @@ instead of that of the file."
(family (or family (show-font--get-attribute-from-file "family"))))
(dolist (face faces)
(push (propertize pangram 'face (list face :family family))
list-of-lines)
- (push (propertize show-font-character-sample 'face (list face :family
family)) list-of-blocks))
+ (push (propertize pangram 'face (list face :family family :slant
'italic)) list-of-lines)
+ (push (propertize pangram 'face (list face :family family :weight
'bold)) list-of-lines)
+ (push (propertize pangram 'face (list face :family family :slant
'italic :weight 'bold)) list-of-lines)
+ (push (propertize show-font-character-sample 'face (list face :family
family)) list-of-blocks)
+ (push (propertize show-font-character-sample 'face (list face :family
family :slant 'italic)) list-of-blocks)
+ (push (propertize show-font-character-sample 'face (list face :family
family :weight 'bold)) list-of-blocks)
+ (push (propertize show-font-character-sample 'face (list face :family
family :slant 'italic :weight 'bold)) list-of-blocks))
(concat
(propertize name 'face (list 'show-font-title :family family))
"\n"
