Mercurial > emacs

comparison lisp/frame.el @ 16963:7daaf9702c47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-frame-font): Renamed from set-default-font,
author Richard M. Stallman <rms@gnu.org>
date Sun, 02 Feb 1997 01:53:27 +0000
parents e47c5d7e9c5d
children a63a326604ae
comparison
equal deleted inserted replaced
16962:3a4ff917c417 16963:7daaf9702c47
581 (defun frame-width (&optional frame) 581 (defun frame-width (&optional frame)
582 "Return number of columns available for display on FRAME. 582 "Return number of columns available for display on FRAME.
583 If FRAME is omitted, describe the currently selected frame." 583 If FRAME is omitted, describe the currently selected frame."
584 (cdr (assq 'width (frame-parameters frame)))) 584 (cdr (assq 'width (frame-parameters frame))))
585 585
586 (defun set-default-font (font-name) 586 (defalias 'set-default-font 'set-frame-font)
587 (defun set-frame-font (font-name)
587 "Set the font of the selected frame to FONT. 588 "Set the font of the selected frame to FONT.
588 When called interactively, prompt for the name of the font to use. 589 When called interactively, prompt for the name of the font to use.
589 To get the frame's current default font, use `frame-parameters'." 590 To get the frame's current default font, use `frame-parameters'."
590 (interactive "sFont name: ") 591 (interactive "sFont name: ")
591 (modify-frame-parameters (selected-frame) 592 (modify-frame-parameters (selected-frame)