Emacs 函数，用于从正则表达式查找和返回匹配项

我正在寻找一个函数，它将尝试查找并返回正则表达式

\\（\\S-\\）

匹配的任何内容，如果找不到任何内容，则可能返回nil。搜索应从

（点）

开始，搜索到文档的结尾。

使用

向前重新搜索

和

匹配字符串

：

(when (re-search-forward "\\(\\S-\\)" nil t)
  (match-string 1))

如果您不希望点移动，请将其包装在

保存偏移中

：

(save-excursion
  (when ...