Emacs で連番記入

Emacs で連番記入の話を見かけたので便乗。

Emacsで連番を挿入する方法 - http://rubikitch.com/に移転しました

Emacs 22 以降でしか使えないけど、もう入力してしまったりした時なんかには

M-x replace-regexp ^ RET (\,(1+ \#)) RET

こんなんもありかも。 \, で任意の EmacsLisp の評価結果を挿入できて \# は今までに replace した数になる。

なにも入力してない時だと空行をいれなきゃいけないけど、それは

M-: (apply 'insert (make-list  10 "\n"))

こんな感じで。

cl マクロを用いて Emacs で連番を記入する方法 - mshkhの日記

`number-sequence' を使うなら

M-: (insert (mapconcat (lambda (x) (format "(%d)" x)) (number-sequence 1 3) "\n"))

とか

M-: (apply 'insert (mapcar (lambda (x) (format "(%d)\n" x)) (number-sequence 1 3)))

のが、 Lisp 的で好き。打鍵数は多いけど…。