branch: externals/show-font
commit c3aa4fc3a4775c72da42d9f39ae9b312523a999f
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Fix the face of the font names in the show-font-tabulated buffer
---
show-font.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/show-font.el b/show-font.el
index 10e3dd8a54..9891d7ebbe 100644
--- a/show-font.el
+++ b/show-font.el
@@ -5,7 +5,7 @@
;; Author: Protesilaos Stavrou <i...@protesilaos.com>
;; Maintainer: Protesilaos Stavrou <i...@protesilaos.com>
;; URL: https://github.com/protesilaos/show-font
-;; Version: 0.4.0
+;; Version: 0.4.1
;; Package-Requires: ((emacs "29.1"))
;; Keywords: convenience, writing, font
@@ -569,9 +569,13 @@ Optional REGEXP has the meaning documented in the function
(list
family
(vector
- (if (or icon-p emoji-p)
- (propertize family 'face (list 'show-font-title-in-listing
:family (if latin-p family "Monospace")))
- (propertize family 'face (list :inherit '(error
show-font-title-in-listing))))
+ (cond
+ ((or icon-p emoji-p)
+ (propertize family 'face (list 'show-font-title-in-listing)))
+ (latin-p
+ (propertize family 'face (list 'show-font-title-in-listing
:family family)))
+ (t
+ (propertize family 'face (list :inherit '(error
show-font-title-in-listing)))))
(cond
(emoji-p
(propertize show-font-emoji-sample 'face (list
'show-font-regular :family family)))
