一个给法律条款文本前加两个全角空格的 Emacs 函数: Revision history

Jump to navigation Jump to search

Diff selection: Mark the radio buttons of the revisions to compare and hit enter or the button at the bottom.
Legend: (cur) = difference with latest revision, (prev) = difference with preceding revision, m = minor edit.

1 October 2025

  • curprev 00:1200:12, 1 October 2025Mwroot talk contribs 1,504 bytes +1,504 Created page with "<syntaxhighlight lang="elisp" line> ;;; insert-quan: 从当前行(行首)到 buffer 末尾,在需处理的行前插入两个全角空格(U+3000)。 (defun insert-quan () "从当前行(行首)到 buffer 末尾的每一行前插入两个全角空格(U+3000)。 跳过空白行、以 '='(在可选前导空白之后)开头的行,以及已以全角空格开头的行。" (interactive) (let* ((beg (line-beginning-position)) (end (point-max)..."