我在文件中有一堆C宏，像NEXT( pL )这样的东西被扩展为( ( pL ) -> next )
我想删除其中大部分，因为它们是不必要的。
我想做的是获取宏pL中括号内的文本。我希望替换的正则表达式使用该文本进行重写。例如，在Perl中，我可以执行类似/NEXT\(\s*(.+)\s*)的操作(可能有点不正确)，然后输出类似$1->next的操作，这应该使一行
if ( NEXT( pL ) != NULL ) {
进入
if ( pL->next != NULL ) {
在Emacs中，我想在emacs replace-regexp中逐文件使用匹配组。我不确定如何在Emacs中执行此操作。
最佳答案
M-x query-replace-regexp NEXT(\([^)]+\)) RET \1->next RET
可以在这样的函数内完成(适用于整个缓冲区)
(defun expand-next ()
"interactive"
(goto-char (point-min))
(while (re-search-forward "\\<NEXT(\\([^\)]+\\))" nil t)
(replace-match "\\1->next")))
并且，要将其应用于多个文件，您可以在Dired and type Q to do a
query-replace-regexp on all the marked files中标记文件(使用此答案第一行中的regexp/replacement)。
关于regex - 正则表达式替换中的Emacs正则表达式组，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/4329278/