Emacs：如何用带计数器的perform-replace实现交互式测试用例重编号

我明白你的需求：要做一个和Emacs内置查询替换行为一致的交互式GoogleTest测试重编号命令，之前用while循环的自动版没问题，但用perform-replace时计数器没法动态更新——这是因为你传的替换字符串是静态计算的，只会在调用perform-replace前生成一次，不会每次替换都重新计算。

解决方案：用动态函数作为替换文本 #

Elisp的perform-replace允许你传入一个函数作为替换参数，每次匹配到结果时都会调用这个函数，用它的返回值作为替换文本。这样我们就能在函数里动态更新计数器了。

下面是修正后的完整代码：

(defun renumber-tests (&optional num)
  "Interactively renumber GoogleTest tests with query support, starting from NUM (default 1).
Follows the same interaction interface as Emacs' built-in query-replace functions."
  (interactive "NStarting test number: ")
  (save-excursion
    (setq num (or num 1))
    (perform-replace ", +T0[0-9]+"
                     ;; 每次匹配时调用这个匿名函数生成替换文本
                     (lambda ()
                       ;; prog1确保先返回当前num的格式化字符串，再递增计数器
                       (prog1
                           (concat ", T" (format "%03d" num))
                         (setq num (1+ num))))
                     t  ; 第一个t：启用正则表达式匹配
                     t  ; 第二个t：启用查询替换交互模式（和query-replace一致）
                     nil))) ; 最后一个nil：不保存替换到查询历史（可按需改为t）

关键细节解释 #

1. 匿名替换函数：把原来的静态字符串换成了lambda函数，perform-replace会在每次找到匹配项时执行这个函数，获取最新的替换文本。
2. prog1的作用：这个特殊形式会先计算并返回第一个表达式的结果（也就是当前num的格式化字符串），然后再执行第二个表达式（递增num）。这样保证了替换用的是当前的序号，替换完成后计数器才+1。
3. perform-replace参数：
   • 第三个参数t表示用正则表达式匹配（和你的re-search-forward逻辑一致）
   • 第四个参数t表示开启查询交互模式，你可以使用和query-replace完全相同的快捷键：y替换当前、n跳过、!全部替换、q退出等
   • 最后一个参数nil表示不把这次替换记录到查询历史里，如果你需要可以改成t

使用方式 #

运行M-x renumber-tests，输入起始测试编号（默认是1），然后就可以像使用Emacs内置的查询替换工具一样，交互式地处理每个测试用例的编号了。每次替换后计数器都会自动递增，完全符合你的需求。

内容的提问来源于stack exchange，提问作者Shmuel Levine