diff options
-rw-r--r-- | lisp/frame.el | 9 |
1 files changed, 8 insertions, 1 deletions
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. |