comparison lisp/emulation/mlsupport.el @ 11093:278c796d9d7e

(ml-concat): New function.

11092:c20013843cb1

  (let ((length (length string)))
    (if (< from 0) (setq from (+ from length)))
    (if (< to 0) (setq to (+ to length)))
    (substring string from (+ from to))))

(provide 'mlsupport)

;;; mlsupport.el ends here

11093:278c796d9d7e

  (let ((length (length string)))
    (if (< from 0) (setq from (+ from length)))
    (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