762 |
(defalias 'eval-current-buffer 'eval-buffer) |
(defalias 'eval-current-buffer 'eval-buffer) |
763 |
|
|
764 |
(make-obsolete 'char-bytes "now always returns 1." "20.4") |
(make-obsolete 'char-bytes "now always returns 1." "20.4") |
765 |
(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15") |
(define-obsolete-function-alias 'string-to-int 'string-to-number) |
766 |
|
|
767 |
(defun insert-string (&rest args) |
(defun insert-string (&rest args) |
768 |
"Mocklisp-compatibility insert function. |
"Mocklisp-compatibility insert function. |
771 |
(dolist (el args) |
(dolist (el args) |
772 |
(insert (if (integerp el) (number-to-string el) el)))) |
(insert (if (integerp el) (number-to-string el) el)))) |
773 |
(make-obsolete 'insert-string 'insert "22.1") |
(make-obsolete 'insert-string 'insert "22.1") |
774 |
|
|
775 |
(defun makehash (&optional test) (make-hash-table :test (or test 'eql))) |
(defun makehash (&optional test) (make-hash-table :test (or test 'eql))) |
776 |
(make-obsolete 'makehash 'make-hash-table "22.1") |
(make-obsolete 'makehash 'make-hash-table "22.1") |
777 |
|
|
779 |
(defun baud-rate () |
(defun baud-rate () |
780 |
"Return the value of the `baud-rate' variable." |
"Return the value of the `baud-rate' variable." |
781 |
baud-rate) |
baud-rate) |
782 |
|
(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15") |
783 |
|
|
784 |
|
|
785 |
;;;; Obsolescence declarations for variables, and aliases. |
;;;; Obsolescence declarations for variables, and aliases. |
824 |
(defalias 'point-at-eol 'line-end-position) |
(defalias 'point-at-eol 'line-end-position) |
825 |
(defalias 'point-at-bol 'line-beginning-position) |
(defalias 'point-at-bol 'line-beginning-position) |
826 |
|
|
|
;;; 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) |
|
827 |
|
|
828 |
;;;; Hook manipulation functions. |
;;;; Hook manipulation functions. |
829 |
|
|