From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 27 Jun 2002 16:08:56 +0000 (+0000)
Subject: (char-bytes): Fix obsolescence declaration.
X-Git-Tag: ttn-vms-21-2-B4~14414
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8eb93953787ed306da3a52e03557a5284a76dada;p=emacs.git

(char-bytes): Fix obsolescence declaration.
(make-local-hook): Likewise.
(baud-rate): Remove redundant info from docstring.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 6532f2da8a0..289aaaaf20e 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -699,7 +699,7 @@ as returned by the `event-start' and `event-end' functions."
 
 (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 @@ is converted into a string by expressing it in decimal."
 
 ;; 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 @@ Do not use `make-local-variable' to make a hook variable buffer-local."
     (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.