753 |
|
|
754 |
;;;; Obsolescent names for functions. |
;;;; Obsolescent names for functions. |
755 |
|
|
756 |
(defalias 'window-dot 'window-point) |
(define-obsolete-function-alias 'window-dot 'window-point) |
757 |
(defalias 'set-window-dot 'set-window-point) |
(define-obsolete-function-alias 'set-window-dot 'set-window-point) |
758 |
(defalias 'read-input 'read-string) |
(define-obsolete-function-alias 'read-input 'read-string) |
759 |
(defalias 'send-string 'process-send-string) |
(define-obsolete-function-alias 'send-string 'process-send-string) |
760 |
(defalias 'send-region 'process-send-region) |
(define-obsolete-function-alias 'send-region 'process-send-region) |
761 |
(defalias 'show-buffer 'set-window-buffer) |
(define-obsolete-function-alias 'show-buffer 'set-window-buffer) |
762 |
(defalias 'eval-current-buffer 'eval-buffer) |
(define-obsolete-function-alias 'eval-current-buffer 'eval-buffer) |
763 |
|
(define-obsolete-function-alias 'string-to-int 'string-to-number) |
764 |
|
|
765 |
(make-obsolete 'char-bytes "now always returns 1." "20.4") |
(make-obsolete 'char-bytes "now always returns 1." "20.4") |
|
(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. |