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 4987596bf9593fb5fd3c4037019692fef86928d4..2c95c870606de86d21c3804a6680c9c41638891d 100644 (file)
--- 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