comparison lisp/subr.el @ 61996:18c0da616450

(define-function, sref): Remove aliases and obsolete declarations. (chars-in-region): Remove obsolete declaration.
author Nick Roberts <nickrob@snap.net.nz>
date Sun, 01 May 2005 22:18:14 +0000
parents cb3d882b9349
children e208ebaf0e17
comparison
equal deleted inserted replaced
61995:eaf711995ea5 61996:18c0da616450
758 (defalias 'read-input 'read-string) 758 (defalias 'read-input 'read-string)
759 (defalias 'send-string 'process-send-string) 759 (defalias 'send-string 'process-send-string)
760 (defalias 'send-region 'process-send-region) 760 (defalias 'send-region 'process-send-region)
761 (defalias 'show-buffer 'set-window-buffer) 761 (defalias 'show-buffer 'set-window-buffer)
762 (defalias 'eval-current-buffer 'eval-buffer) 762 (defalias 'eval-current-buffer 'eval-buffer)
763 (defalias 'define-function 'defalias) 763
764
765 (defalias 'sref 'aref)
766 (make-obsolete 'sref 'aref "20.4")
767 (make-obsolete 'char-bytes "now always returns 1." "20.4") 764 (make-obsolete 'char-bytes "now always returns 1." "20.4")
768 (make-obsolete 'chars-in-region "use (abs (- BEG END))." "20.3")
769 (make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15") 765 (make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15")
770 (make-obsolete 'define-function 'defalias "20.1")
771 766
772 (defun insert-string (&rest args) 767 (defun insert-string (&rest args)
773 "Mocklisp-compatibility insert function. 768 "Mocklisp-compatibility insert function.
774 Like the function `insert' except that any argument that is a number 769 Like the function `insert' except that any argument that is a number
775 is converted into a string by expressing it in decimal." 770 is converted into a string by expressing it in decimal."