awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-28 16:51:08 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

2
core/autoload/debug.el
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)

2
core/autoload/help.el
View File

@@ -424,7 +424,7 @@ If prefix arg is present, refresh the cache."
(progn
(end-of-line)
(insert "\n"))
(re-search-forward "\n\n" nil t))
(search-forward "\n\n" nil t))
(package--print-help-section "Package")
(insert (symbol-name package) "\n")

2
core/autoload/packages.el
View File

@@ -139,7 +139,7 @@ was installed with."
(when (file-readable-p file)
(insert-file-contents file)
(delay-mode-hooks (emacs-lisp-mode))
(while (re-search-forward "(package! " nil t)
(while (search-forward "(package! " nil t)
(save-excursion
(goto-char (match-beginning 0))
(unless (let ((ppss (syntax-ppss)))