diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 10:28:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 10:28:42 +0000 |
| commit | 8d91bd0aad5b920c7ff74ce0d381be97a83589c9 (patch) | |
| tree | b0f32dfefcb5d18e0f114b0853469f252c6e87fa /lisp/frame.el | |
| parent | 7ee5f4148975a326f62a795dc0e639d6cfc322e3 (diff) | |
| download | emacs-8d91bd0aad5b920c7ff74ce0d381be97a83589c9.tar.gz | |
(screen-height, screen-width, set-screen-width, set-screen-height):
Add WHEN to obsolescence declaration.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 34a46dfa634..546cf0903f3 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1395,8 +1395,8 @@ the opposite frame edge from the edge indicated in the input spec." (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 @@ left untouched. FRAME nil or omitted means use the selected frame." (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 |