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

[Juanma Barranquero]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.450 emacs/lisp/subr.el:1.451
*** emacs/lisp/subr.el:1.450    Sun May 15 23:57:15 2005
--- emacs/lisp/subr.el  Tue May 17 15:03:12 2005
***************
*** 762,768 ****
  (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")
  
  (defun insert-string (&rest args)
    "Mocklisp-compatibility insert function.
--- 762,768 ----
  (defalias 'eval-current-buffer 'eval-buffer)
  
  (make-obsolete 'char-bytes "now always returns 1." "20.4")
! (define-obsolete-function-alias 'string-to-int 'string-to-number)
  
  (defun insert-string (&rest args)
    "Mocklisp-compatibility insert function.
***************
*** 771,776 ****
--- 771,777 ----
    (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,783 ****
--- 779,785 ----
  (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,830 ****
  (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.
  
--- 824,829 ----