From a18ff9886771c41186eebf8d7984fee2120dbe36 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero <lekktu@gmail.com> Date: Thu, 19 May 2005 23:45:09 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 8 ++++++++ lisp/subr.el | 16 ++++++++-------- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a72a91ebed9..d962d71c044 100644 --- 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 fe14efcb484..ee084e09f14 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -758,14 +758,12 @@ and `event-end' functions." ;;;; 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." ;;;; 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) -- 2.39.5