Commit f2d9e61d authored by Karl Heuer's avatar Karl Heuer
Browse files

(ml-concat): New function.

parent bdafb772
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment