Я ищу функцию, которая попытается найти и вернуть то, что соответствует регулярному выражению \\(\\S-\\) и, вероятно, nil, если ничего не было найдено. Поиск должен начинаться с (point) и выполнять поиск до конца документа.
\\(\\S-\\)
(point)
Используйте re-search-forward и match-string:
re-search-forward
match-string
(when (re-search-forward "\\(\\S-\\)" nil t) (match-string 1))
Если вы не хотите перемещать точку, оберните ее в save-excursion:
save-excursion
(save-excursion (when ...