From: Glenn Morris <rgm@gnu.org>
Date: Fri, 3 Oct 2008 07:24:54 +0000 (+0000)
Subject: (set-default-font): Make obsolete.
X-Git-Tag: emacs-pretest-23.0.90~2670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52ef9375bb7116ff3252b5660047b39717a2168f;p=emacs.git

(set-default-font): Make obsolete.
---

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.