(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index a72a91ebed9018fab931197d136cdfc9196c37b0..d962d71c0441d380d6ba95afb63c73221771ae92 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-05-20  Juanma Barranquero  <lekktu@gmail.com>
+
+       * subr.el (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.
+
 2005-05-19  Kim F. Storm  <storm@cua.dk>
 
        * ido.el (ido-magic-forward-char): Enter ido-find-file at end of input.

diff --git a/lisp/subr.el b/lisp/subr.el
index fe14efcb4846094718dfabd987bf61adecceed79..ee084e09f14293360d1196d2ac3e3d29b68290dd 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -758,14 +758,12 @@ and `event-end' functions."
 \f
 ;;;; 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 @@ is converted into a string by expressing it in decimal."
 \f
 ;;;; 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)