如何使用elisp

Question

有插入功能，但没有插入行功能。我需要插入“ commit;”这样的行当前缓冲区中的每1000行。所以我需要循环然后需要一些功能，如

（插入第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。