[Emacs-diffs] Changes to emacs/lisp/subr.el

[Juanma Barranquero]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.310 emacs/lisp/subr.el:1.311
*** emacs/lisp/subr.el:1.310    Sun Jun 23 18:13:15 2002
--- emacs/lisp/subr.el  Thu Jun 27 12:08:56 2002
***************
*** 699,705 ****
  
  (defalias 'sref 'aref)
  (make-obsolete 'sref 'aref "20.4")
! (make-obsolete 'char-bytes "Now this function always returns 1" "20.4")
  
  (defun insert-string (&rest args)
    "Mocklisp-compatibility insert function.
--- 699,705 ----
  
  (defalias 'sref 'aref)
  (make-obsolete 'sref 'aref "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,719 ****
  
  ;; 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."
    baud-rate)
  
  (defalias 'focus-frame 'ignore)
--- 712,718 ----
  
  ;; Some programs still use this as a function.
  (defun baud-rate ()
!   "Return the value of the `baud-rate' variable."
    baud-rate)
  
  (defalias 'focus-frame 'ignore)
***************
*** 772,778 ****
      (make-local-variable hook)
      (set hook (list t)))
    hook)
! (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.
--- 771,777 ----
      (make-local-variable hook)
      (set hook (list t)))
    hook)
! (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.