# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854848407 0
# Node ID 7daaf9702c473ca34e3bbe3feeab18acc583edfa
# Parent  3a4ff917c41716da1cbdc75838e15cd34b1314e6
(set-frame-font): Renamed from set-default-font,

diff -r 3a4ff917c417 -r 7daaf9702c47 lisp/frame.el
--- a/lisp/frame.el	Sun Feb 02 01:50:06 1997 +0000
+++ b/lisp/frame.el	Sun Feb 02 01:53:27 1997 +0000
@@ -583,7 +583,8 @@
 If FRAME is omitted, describe the currently selected frame."
   (cdr (assq 'width (frame-parameters frame))))
 
-(defun set-default-font (font-name)
+(defalias 'set-default-font 'set-frame-font)
+(defun set-frame-font (font-name)
   "Set the font of the selected frame to FONT.
 When called interactively, prompt for the name of the font to use.
 To get the frame's current default font, use `frame-parameters'."