Re: insert-string

[Sam Steingold]

> * In message <address@hidden>
> * On the subject of "Re: insert-string"
> * Sent on Sat, 01 Dec 2001 16:57:26 +0100
> * Honorable address@hidden (Pavel Janík) writes:
>
> (defun insert-string (&rest args)
>   "Mocklisp-compatibility insert function.
> Like the function `insert' except that any argument that is a number
> is converted into a string by expressing it in decimal."
>   (let ((temp args))
>     (while temp
>       (if (integerp (car temp))
>         (insert (format "%d" (car temp)))
>       (insert (car temp)))
>       (setq temp (cdr temp)))))

  (dolist (el args)
    (if (integerp el)
        (insert (format "%d" el))
      (insert el)))



-- 
Sam Steingold (http://www.podval.org/~sds)
Keep Jerusalem united! <http://www.onejerusalem.org/Petition.asp>
Read, think and remember! <http://www.iris.org.il> <http://www.memri.org/>
In every non-trivial program there is at least one bug.