mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 00:33:13 -08:00
Code Issues Projects Releases Wiki Activity

(set-frame-font): Do completion of font-name for interactive use.

Browse source
This commit is contained in:
Miles Bader 2000-08-30 12:09:58 +00:00
parent 90c7e9f079
commit faaf40e434
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/frame.el
View file

@ -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.