From faaf40e434a5230dae43be0aba6972d5f680962e Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 30 Aug 2000 12:09:58 +0000 Subject: [PATCH] (set-frame-font): Do completion of font-name for interactive use. --- lisp/frame.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/frame.el b/lisp/frame.el index a33d8c41aa..490c8c1bf3 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -701,7 +701,14 @@ If FRAME is omitted, describe the currently selected frame." "Set the font of the selected frame to FONT-NAME. When called interactively, prompt for the name of the font to use. To get the frame's current default font, use `frame-parameters'." - (interactive "sFont name: ") + (interactive + (list + (let ((completion-ignore-case t)) + (completing-read "Font name: " + (mapcar #'list + ;; x-list-fonts will fail with an error + ;; if this frame doesn't support fonts. + (x-list-fonts "*" nil (selected-frame))))))) (modify-frame-parameters (selected-frame) (list (cons 'font font-name))) ;; Update faces that want a bold or italic version of the default font. -- 2.39.2