# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 795904757 0
# Node ID 278c796d9d7e41e93806a66bd7b309afaa8456e6
# Parent  c20013843cb15c37cee0576d4d564d48dcdfa20c
(ml-concat): New function.

diff -r c20013843cb1 -r 278c796d9d7e lisp/emulation/mlsupport.el
--- a/lisp/emulation/mlsupport.el	Wed Mar 22 20:38:52 1995 +0000
+++ b/lisp/emulation/mlsupport.el	Wed Mar 22 20:39:17 1995 +0000
@@ -419,6 +419,16 @@
     (if (< to 0) (setq to (+ to length)))
     (substring string from (+ from to))))
 
+(defun ml-concat (&rest args)
+  (let ((newargs nil) this)
+    (while args
+      (setq this (car args))
+      (if (numberp this)
+	  (setq this (number-to-string this)))
+      (setq newargs (cons this newargs)
+	    args (cdr args)))
+    (apply 'concat (nreverse newargs))))
+
 (provide 'mlsupport)
 
 ;;; mlsupport.el ends here