From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 26 Apr 2021 20:31:08 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix string-search.
X-Git-Tag: emacs-28.0.90~2707
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbfb5030129ee364d661dd2b56d7798f5cebc619;p=emacs.git

* 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 eebb77d993f..1fb07c66adf 100644
--- 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))