# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1116402228 0
# Node ID dc7a3585340d14bd1d7992471532fec422381042
# Parent  ee6bad3fbaf7ede4dd4d4a303fc1dde5aba4c3ba
(window-dot, set-window-dot, read-input, send-string, send-region, show-buffer,
eval-current-buffer): Make really obsolete, as the comment says.

diff -r ee6bad3fbaf7 -r dc7a3585340d lisp/subr.el
--- a/lisp/subr.el	Tue May 17 22:40:00 2005 +0000
+++ b/lisp/subr.el	Wed May 18 07:43:48 2005 +0000
@@ -753,16 +753,16 @@
 
 ;;;; 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.