如何使用 Emacs 同时修改两个匹配的分隔符？

Question

虽然这个问题涉及 Emacs（也可能是 Auctex）中 LaTeX 的格式，但我相信这可以应用于 Emacs 中有关括号、方括号和大括号等分隔符的更一般情况。

我希望能够使用 Emacs（和 elisp）执行以下操作，但不知道从哪里开始。假设我有：

(This is in parentheses)

通过 Emacs 中的一些键绑定，我希望 Emacs 找到与我的光标所在的任何一个匹配的分隔符（我知道 Emacs 可以做到这一点，因为它可以在各种模式下突出显示匹配的分隔符）并能够更改它们 /

\left( This is in parentheses \right)

我希望使用的分隔符是： (...), [...], \lvert ... \rvert< 代码>, <代码>\langle ... \rangle，\{ ... \}。我需要什么 elisp 来完成这项任务？

欢迎使用更通用的方法来处理匹配分隔符。

Answer 1

在 Emacs 中评估以下命令。重新加载后，您可以将点（文本光标）立即放在右括号之后。然后执行 Mx Replace-matching-parens 将结束的 ) 替换为 \right) 和匹配的开始 paren ( 与 \left(。

(defun replace-matching-parens ()
  (interactive)
  (save-excursion
    (let ((end-point (point)))
      (backward-list)
      (let ((start-point (point)))
        (goto-char end-point)
        (re-search-backward ")" nil t)
        (replace-match " \\\\right)" nil nil)

        (goto-char start-point)
        (re-search-forward "(" nil t)
        (replace-match "\\\\left( " nil nil)))))

interactive 位表示我想要一个“命令”，因此可以使用 Mx 执行它。为了避免执行后光标最终出现在一个奇怪的地方我将逻辑包装在其中save-excursion。该点使用 backward-list 跳转回起始括号，并保留括号匹配区域的开始和结束位置。通过向后而不是向前替换字符串，我可以避免在需要它之前使端点无效

。 backward-list 应该适用于 emacs 识别为 ( 和 ) 类似的任何字符串对。请查看这篇括号匹配文章中的set-syntax-table。

使用 global-set-key设置与 replace-matching-parens 的键绑定。

公平警告：replace-matching-parens 是我实现的第一个 elisp 命令，因此它可能与最佳实践不符。对于所有的专家，我愿意接受建设性的批评。