diff lisp/frame.el @ 94158:072ae82c3f6a

(screen-height, screen-width, set-screen-width, set-screen-height): Add WHEN to obsolescence declaration.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 18 Apr 2008 10:28:42 +0000
parents 6c35c4ccf09e
children ee5932bf781d
line wrap: on
line diff
--- a/lisp/frame.el	Fri Apr 18 10:28:18 2008 +0000
+++ b/lisp/frame.el	Fri Apr 18 10:28:42 2008 +0000
@@ -1395,8 +1395,8 @@
   (cons (car spec) (frame-geom-value-cons (car spec) (cdr spec))))
 
 ;;;; Aliases for backward compatibility with Emacs 18.
-(define-obsolete-function-alias 'screen-height 'frame-height) ;before 19.15
-(define-obsolete-function-alias 'screen-width 'frame-width) ;before 19.15
+(define-obsolete-function-alias 'screen-height 'frame-height "19.7")
+(define-obsolete-function-alias 'screen-width 'frame-width "19.7")
 
 (defun set-screen-width (cols &optional pretend)
   "Change the size of the screen to COLS columns.
@@ -1432,8 +1432,8 @@
       (when (eq (frame-parameter frame 'minibuffer) 'only)
 	(delete-frame frame)))))
 
-(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
-(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15
+(make-obsolete 'set-screen-width 'set-frame-width "19.7")
+(make-obsolete 'set-screen-height 'set-frame-height "19.7")
 
 ;; miscellaneous obsolescence declarations
 (define-obsolete-variable-alias 'delete-frame-hook