diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index f34db188a0f..c199bee05dc 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -652,6 +652,15 @@ as returned by the `event-start' and `event-end' functions." (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. |