re-search-forward to search-forward when no re

When no regular expression is present, it's faster and simpler to use
search-forward

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2019-10-13 12:25:41 +09:00
parent 90b59d00df
commit 55e00bbd26
4 changed files with 4 additions and 4 deletions

View file

@ -137,7 +137,7 @@ markdown and copies it to your clipboard, ready to be pasted into bug reports!"
(progn
(save-excursion
(pp info (current-buffer)))
(when (re-search-forward "(modules " nil t)
(when (search-forward "(modules " nil t)
(goto-char (match-beginning 0))
(cl-destructuring-bind (beg . end)
(bounds-of-thing-at-point 'sexp)