branch: externals/show-font
commit 2d04283d8ed40a0692bc1f9f2d884d20dbd19cf4
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add revert-buffer-function for show-font-select-preview
---
show-font.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/show-font.el b/show-font.el
index 0cc4ae1861..988b4c8fee 100644
--- a/show-font.el
+++ b/show-font.el
@@ -326,7 +326,10 @@ FAMILY is a string that satisfies `show-font-installed-p'."
(when (show-font-installed-p family)
(show-font-with-preview-buffer (format "*show-font preview of `%s'*"
family)
(save-excursion
- (insert (show-font--prepare-text family))))))
+ (insert (show-font--prepare-text family)))
+ (setq-local revert-buffer-function
+ (lambda (_ignore-auto _noconfirm)
+ (show-font-select-preview family))))))
;;;; Preview fonts in a list
