# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1116546257 0
# Node ID 3f80c5cf6771f6ea57b50cb0bd7a3bed8dae5a78
# Parent  661bed73ed1761e33fcd394b20794fdb51ad5bf0
(send-string, send-region): Remove obsolescence declaration.
(window-dot, set-window-dot, read-input, show-buffer, eval-current-buffer,
string-to-int): Add release number to obsolescence declarations.

diff -r 661bed73ed17 -r 3f80c5cf6771 lisp/subr.el
--- a/lisp/subr.el	Thu May 19 23:38:12 2005 +0000
+++ b/lisp/subr.el	Thu May 19 23:44:17 2005 +0000
@@ -758,14 +758,12 @@
 
 ;;;; Obsolescent names for functions.
 
-(define-obsolete-function-alias 'window-dot 'window-point)
-(define-obsolete-function-alias 'set-window-dot 'set-window-point)
-(define-obsolete-function-alias 'read-input 'read-string)
-(define-obsolete-function-alias 'send-string 'process-send-string)
-(define-obsolete-function-alias 'send-region 'process-send-region)
-(define-obsolete-function-alias 'show-buffer 'set-window-buffer)
-(define-obsolete-function-alias 'eval-current-buffer 'eval-buffer)
-(define-obsolete-function-alias 'string-to-int 'string-to-number)
+(define-obsolete-function-alias 'window-dot 'window-point "22.1")
+(define-obsolete-function-alias 'set-window-dot 'set-window-point "22.1")
+(define-obsolete-function-alias 'read-input 'read-string "22.1")
+(define-obsolete-function-alias 'show-buffer 'set-window-buffer "22.1")
+(define-obsolete-function-alias 'eval-current-buffer 'eval-buffer "22.1")
+(define-obsolete-function-alias 'string-to-int 'string-to-number "22.1")
 
 (make-obsolete 'char-bytes "now always returns 1." "20.4")
 
@@ -808,6 +806,8 @@
 
 ;;;; Alternate names for functions - these are not being phased out.
 
+(defalias 'send-string 'process-send-string)
+(defalias 'send-region 'process-send-region)
 (defalias 'string= 'string-equal)
 (defalias 'string< 'string-lessp)
 (defalias 'move-marker 'set-marker)