Mercurial > emacs
comparison lisp/frame.el @ 16963:7daaf9702c47
(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) |