(set-default-font): Make obsolete.

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc861509adc..daebbff3688 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-10-03  Glenn Morris  <rgm@gnu.org>
 
+        * frame.el (set-default-font): Make obsolete.
+
         * jka-cmpr-hook.el (jka-compr-compression-info-list)
         (jka-compr-mode-alist-additions): Also match `.tbz2'.
 
diff --git a/lisp/frame.el b/lisp/frame.el
index 2c8badf90c2..154844a3d45 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1014,7 +1014,7 @@ If FRAME is omitted, describe the currently selected frame."
 (declare-function x-list-fonts "xfaces.c"
                   (pattern &optional face frame maximum width))
 
-(defalias 'set-default-font 'set-frame-font)
+(define-obsolete-function-alias 'set-default-font 'set-frame-font "23.1")
 (defun set-frame-font (font-name &optional keep-size)
   "Set the font of the selected frame to FONT-NAME.
 When called interactively, prompt for the name of the font to use.