(window-dot, set-window-dot, read-input, send-string, send-region, show-buffer,

eval-current-buffer): Make really obsolete, as the comment says.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae8a55852b88c13f122b7367ae422672d7b53f18..68640c451c287b0e3a04ebaa90379dd5740aff4c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-05-18  Juanma Barranquero  <lekktu@gmail.com>
+
+       * subr.el (window-dot, set-window-dot, read-input, send-string)
+       (send-region, show-buffer, eval-current-buffer):
+       Make really obsolete, as the comment says.
+
 2005-05-17  Kim F. Storm  <storm@cua.dk>
 
        * emulation/cua-base.el (cua-use-hyper-key): Doc fix.

diff --git a/lisp/subr.el b/lisp/subr.el
index 387bf854a018a179efa5edfb96af2f8020d6d23d..8c2af201e1947e3684c09df7894765d7c01eb115 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -753,16 +753,16 @@ and `event-end' functions."
 \f
 ;;;; Obsolescent names for functions.
 
-(defalias 'window-dot 'window-point)
-(defalias 'set-window-dot 'set-window-point)
-(defalias 'read-input 'read-string)
-(defalias 'send-string 'process-send-string)
-(defalias 'send-region 'process-send-region)
-(defalias 'show-buffer 'set-window-buffer)
-(defalias 'eval-current-buffer 'eval-buffer)
+(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)
 
 (make-obsolete 'char-bytes "now always returns 1." "20.4")
-(define-obsolete-function-alias 'string-to-int 'string-to-number)
 
 (defun insert-string (&rest args)
   "Mocklisp-compatibility insert function.