* lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix string-search.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eebb77d993f6831a8af42092473252093da49e8e..1fb07c66adf797fa6d053462076a7203fb3ca5b8 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -496,7 +496,7 @@ Useful to hook into pass checkers.")
     (string-lessp (function ((or string symbol) (or string symbol)) boolean))
     (string-make-multibyte (function (string) string))
     (string-make-unibyte (function (string) string))
-    (string-search (function (string string &optional integer) integer))
+    (string-search (function (string string &optional integer) (or integer null)))
     (string-to-char (function (string) fixnum))
     (string-to-multibyte (function (string) string))
     (string-to-number (function (string &optional integer) number))