Mercurial > emacs
changeset 42266:75bbe9d566d9
(insert-string): Moved from mocklisp.c, reimplemented in Lisp. Obsoleted.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 22 Dec 2001 13:36:12 +0000 |
| parents | 02450f475e96 |
| children | 76d12dafa83d |
| files | lisp/subr.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Sat Dec 22 13:35:14 2001 +0000 +++ b/lisp/subr.el Sat Dec 22 13:36:12 2001 +0000 @@ -652,6 +652,15 @@ (make-obsolete 'sref 'aref "20.4") (make-obsolete 'char-bytes "Now this function always returns 1" "20.4") +(defun insert-string (&rest args) + "Mocklisp-compatibility insert function. +Like the function `insert' except that any argument that is a number +is converted into a string by expressing it in decimal." + (dolist (el args) + (insert (if (integerp el) (number-to-string el) el)))) + +(make-obsolete 'insert-string 'insert "21.3") + ;; Some programs still use this as a function. (defun baud-rate () "Obsolete function returning the value of the `baud-rate' variable.