From d11ad5a745e57452d08187a45873aa199a04d716 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 18 May 2005 07:44:39 +0000 Subject: [PATCH] (window-dot, set-window-dot, read-input, send-string, send-region, show-buffer, eval-current-buffer): Make really obsolete, as the comment says. --- lisp/ChangeLog | 6 ++++++ lisp/subr.el | 16 ++++++++-------- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ae8a55852b8..68640c451c2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-05-18 Juanma Barranquero + + * 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 * emulation/cua-base.el (cua-use-hyper-key): Doc fix. diff --git a/lisp/subr.el b/lisp/subr.el index 387bf854a01..8c2af201e19 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. -- 2.39.5