# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1025194136 0
# Node ID 4d27fe417297e1f42fca0950c3ecddffdc97bca9
# Parent  990c78360ef5d94f3c7b59a5a320b513b9bee1c7
(char-bytes): Fix obsolescence declaration.
(make-local-hook): Likewise.
(baud-rate): Remove redundant info from docstring.

diff -r 990c78360ef5 -r 4d27fe417297 lisp/subr.el
--- a/lisp/subr.el	Thu Jun 27 16:08:12 2002 +0000
+++ b/lisp/subr.el	Thu Jun 27 16:08:56 2002 +0000
@@ -699,7 +699,7 @@
 
 (defalias 'sref 'aref)
 (make-obsolete 'sref 'aref "20.4")
-(make-obsolete 'char-bytes "Now this function always returns 1" "20.4")
+(make-obsolete 'char-bytes "now always returns 1 (maintained for backward compatibility)." "20.4")
 
 (defun insert-string (&rest args)
   "Mocklisp-compatibility insert function.
@@ -712,8 +712,7 @@
 
 ;; Some programs still use this as a function.
 (defun baud-rate ()
-  "Obsolete function returning the value of the `baud-rate' variable.
-Please convert your programs to use the variable `baud-rate' directly."
+  "Return the value of the `baud-rate' variable."
   baud-rate)
 
 (defalias 'focus-frame 'ignore)
@@ -772,7 +771,7 @@
     (make-local-variable hook)
     (set hook (list t)))
   hook)
-(make-obsolete 'make-local-hook "Not necessary any more." "21.1")
+(make-obsolete 'make-local-hook "not necessary any more." "21.1")
 
 (defun add-hook (hook function &optional append local)
   "Add to the value of HOOK the function FUNCTION.