From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 22 Dec 2001 13:36:12 +0000 (+0000)
Subject: (insert-string): Moved from mocklisp.c, reimplemented in Lisp.  Obsoleted.
X-Git-Tag: ttn-vms-21-2-B4~17534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=676927b7d8e597a75e23c26db9283d93ac0e882e;p=emacs.git

(insert-string): Moved from mocklisp.c, reimplemented in Lisp.  Obsoleted.
---

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.