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

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

2 files changed, 14 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae8a55852b..68640c451c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-05-18  Juanma Barranquero  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* emulation/cua-base.el (cua-use-hyper-key): Doc fix.
diff --git a/lisp/subr.el b/lisp/subr.el
index 387bf854a0..8c2af201e1 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -753,16 +753,16 @@ and `event-end' functions."
 
 ;;;; 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.