From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 25 Sep 2020 12:30:13 +0000 (+0200)
Subject: Mark string-search as being side effect free
X-Git-Tag: emacs-28.0.90~5891
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79762ffa618ba0f0b8b4483c1cca8ccb1aab2606;p=emacs.git

Mark string-search as being side effect free

* lisp/emacs-lisp/byte-opt.el (side-effect-free-fns): Add
string-search.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 4987596bf95..2c95c870606 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1173,7 +1173,8 @@
 	 degrees-to-radians
 	 radians-to-degrees rassq rassoc read-from-string regexp-quote
 	 region-beginning region-end reverse round
-	 sin sqrt string string< string= string-equal string-lessp string-to-char
+	 sin sqrt string string< string= string-equal string-lessp
+         string-search string-to-char
 	 string-to-number substring
 	 sxhash sxhash-equal sxhash-eq sxhash-eql
 	 symbol-function symbol-name symbol-plist symbol-value string-make-unibyte