branch: externals/show-font
commit ec5c57fbad335274d29b1a1deaa89f5b3721f167
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make the show-font--select-preview-prompt use its history
---
show-font.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/show-font.el b/show-font.el
index f57b649e34..0ce06f2704 100644
--- a/show-font.el
+++ b/show-font.el
@@ -400,7 +400,8 @@ Optional REGEXP has the same meaning as in the
aforementioned function."
(let ((def (car show-font-select-preview-history)))
(completing-read
(format-prompt "Select font to preview" def)
- (show-font-get-installed-font-families regexp))))
+ (show-font-get-installed-font-families regexp)
+ nil t nil 'show-font-select-preview-history)))
;;;###autoload
(defun show-font-select-preview (family)
