# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1116342192 0
# Node ID a25a4c4602a44934eb1bca35ccc06a45adf7dde1
# Parent  b0b56d84051fa20a4127f75543007ead37b4427d
Slight reorganization of some obsolete declarations; deleted comment no longer
relevant.

diff -r b0b56d84051f -r a25a4c4602a4 lisp/subr.el
--- a/lisp/subr.el	Tue May 17 14:13:34 2005 +0000
+++ b/lisp/subr.el	Tue May 17 15:03:12 2005 +0000
@@ -762,7 +762,7 @@
 (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 @@
   (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 @@
 (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 @@
 (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.