mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(ml-concat): New function.

Browse source
This commit is contained in:
Karl Heuer 1995-03-22 20:39:17 +00:00
parent bdafb772d7
commit f2d9e61da4
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emulation/mlsupport.el
View file

@ -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