(set-default-font): Make obsolete.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc861509adc7da73dc88a080936840d0c3f33920..daebbff368801815f26a7ec3df803dafa1739cca 100644 (file)
--- 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 2c8badf90c2b572be3f239998d3c291ed0ff6ba6..154844a3d45f7f0ae434d1a41c00224a0f658526 100644 (file)
--- 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.