>> 933

>> 940 の指摘してくれた修正を入れてみました。
これを.emacsにいれておけばできるのではないかと思います。
指定行数はコマンドの前にC-u (指定行数)　です。

(defun add-line-number (&optional start)
"add line number"
(interactive "p")
(or start (setq start 1))
(save-excursion
(let ((current-line 1))
(goto-char (point-min))
(while (not (eobp))
(insert (format "%d " (+ start (count-lines (point-min) (point)))))
(forward-line 1)))))