From f2d9e61da405b9f3cd2cebde538a76c4f3055be3 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 22 Mar 1995 20:39:17 +0000 Subject: (ml-concat): New function. --- lisp/emulation/mlsupport.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lisp/emulation/mlsupport.el') 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 -- cgit v1.2.1