(set-default-font): Make obsolete.

52ef9375 · Glenn Morris · 6f34ccdf · 52ef9375 · 52ef9375
Commit 52ef9375 authored Oct 03, 2008 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +2 -0

lisp/frame.el lisp/frame.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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'.
  

--- 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.