# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1009028172 0
# Node ID 75bbe9d566d9ad5a6eee8538b6f25a8f45fa5e0c
# Parent  02450f475e96aed7c9ad8adc8e958d0608e0484b
(insert-string): Moved from mocklisp.c, reimplemented in Lisp.  Obsoleted.

diff -r 02450f475e96 -r 75bbe9d566d9 lisp/subr.el
--- 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.