如何使用elisp将字符串作为新行插入当前缓冲区

Question

有插入函数，但没有插入行函数。我需要的是插入一行；承诺"在当前缓冲器中每1000行。所以我需要循环，然后需要一些像这样的功能

(insert-line 1000 "commit;")

Answer 1

这里有一个非常基本的版本：

(defun insert-lines (skip text)
"Insert `text' every `skip' lines."
(while (zerop (forward-line skip))
(insert text)))

您可以将它与M-：(插入第10行"commit；\n"(RET一起使用。

您可以自己添加铃铛和口哨，如interactive和save-excursion。