From cb011c67aa8a93e0ae8970d6f94f790c72e4cb1f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 17 May 2005 15:03:12 +0000 Subject: [PATCH] Slight reorganization of some obsolete declarations; deleted comment no longer relevant. --- lisp/subr.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 8eda9e542c2..387bf854a01 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -762,7 +762,7 @@ and `event-end' functions." (defalias 'eval-current-buffer 'eval-buffer) (make-obsolete 'char-bytes "now always returns 1." "20.4") -(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15") +(define-obsolete-function-alias 'string-to-int 'string-to-number) (defun insert-string (&rest args) "Mocklisp-compatibility insert function. @@ -771,6 +771,7 @@ is converted into a string by expressing it in decimal." (dolist (el args) (insert (if (integerp el) (number-to-string el) el)))) (make-obsolete 'insert-string 'insert "22.1") + (defun makehash (&optional test) (make-hash-table :test (or test 'eql))) (make-obsolete 'makehash 'make-hash-table "22.1") @@ -778,6 +779,7 @@ is converted into a string by expressing it in decimal." (defun baud-rate () "Return the value of the `baud-rate' variable." baud-rate) +(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15") ;;;; Obsolescence declarations for variables, and aliases. @@ -822,9 +824,6 @@ is converted into a string by expressing it in decimal." (defalias 'point-at-eol 'line-end-position) (defalias 'point-at-bol 'line-beginning-position) -;;; Should this be an obsolete name? If you decide it should, you get -;;; to go through all the sources and change them. -(define-obsolete-function-alias 'string-to-int 'string-to-number) ;;;; Hook manipulation functions. -- 2.39.2