連番作るコマンドを作りたい

my_eval.el

(setq my-repeat-num-command
      "(loop for i from 1 to 10 do (insert (format \"%d\n\" i)))")
(defun my-insert-command () (insert my-repeat-num-command))
(defun eval-repeat-number ()
  (progn
    (add-hook 'eval-expression-minibuffer-setup-hook 'my-insert-command)
    (eval-expression)
    (remove-hook 'eval-expression-minibuffer-setup-hook 'my-insert-command)))