diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-03-22 20:39:17 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-03-22 20:39:17 +0000 |
| commit | f2d9e61da405b9f3cd2cebde538a76c4f3055be3 (patch) | |
| tree | aff1159a6ff5ecc195e2abcdd3a53ff9a407849e /lisp/emulation/mlsupport.el | |
| parent | bdafb772d7534c31582cbf85ab151563dcfde3d5 (diff) | |
| download | emacs-f2d9e61da405b9f3cd2cebde538a76c4f3055be3.tar.gz | |
(ml-concat): New function.
Diffstat (limited to 'lisp/emulation/mlsupport.el')
| -rw-r--r-- | lisp/emulation/mlsupport.el | 10 |
1 files changed, 10 insertions, 0 deletions
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 |