Emacs Lisp 簡単なループ

(setq desired-number 10)
(setq count 1)
(while (<= count desired-number)
  (message "message: %d" count)
  (setq count (1+ count)))

Programming in Emacs Lisp: Loops & Recursion message - Programming in Emacs Lisp