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 ----
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
