From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 22 Mar 1995 20:39:17 +0000 (+0000)
Subject: (ml-concat): New function.
X-Git-Tag: emacs-19.34~4765
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2d9e61da405b9f3cd2cebde538a76c4f3055be3;p=emacs.git

(ml-concat): New function.
---

diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el
index 3596036d0e5..d60b3809dfd 100644
--- a/lisp/emulation/mlsupport.el
+++ b/lisp/emulation/mlsupport.el
@@ -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