diff options
| author | Miles Bader <miles@gnu.org> | 2000-08-30 12:09:58 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-08-30 12:09:58 +0000 |
| commit | faaf40e434a5230dae43be0aba6972d5f680962e (patch) | |
| tree | 92f860a47e2167c2fcbe16dafd1ce7027e945b69 /lisp/frame.el | |
| parent | 90c7e9f079e0260c18c689f8afda4869e5096e5b (diff) | |
| download | emacs-faaf40e434a5230dae43be0aba6972d5f680962e.tar.gz | |
(set-frame-font): Do completion of font-name for interactive use.
Diffstat (limited to 'lisp/frame.el')
| -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 a33d8c41aaf..490c8c1bf3e 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. |