使用 replace-regexp 在行首添加序号

假设有如下文本

1
2
3

Google
Facebook
Amazon

需要在行首添加数字序号，变成如下的效果，有什么好的方式？

1
2
3

1. Google
2. Facebook
3. Amazon

replace-regexp 可以轻松实现这个效果：

M-x replace-regexp RET ^ RET \,(1+ \#). RET

解释一下：

• ^ 表示匹配行首
• \,(1+ \#). 替换的内容以 \, 开始表示这是一个 ELisp 表达式，其中 \# 表示当前替换的个数，默认从 0 开始，所以这里用了 1+

改变下需求，如果不是数字序号，而是字母表序号，可以怎么做？

1
2
3

a. Google
b. Facebook
c. Amazon

替换的内容改成 \,(char-to-string (+ ?a \#)). 即可。