summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-04-26 22:31:08 +0200
committerAndrea Corallo <akrl@sdf.org>2021-04-26 22:32:05 +0200
commitfbfb5030129ee364d661dd2b56d7798f5cebc619 (patch)
treec2c2e5725b100f87c16130e79c6fb0a3198dfc77 /lisp/emacs-lisp
parent6546ebcb97ec4a4ff1de0970c1f62a2d9f62467a (diff)
downloademacs-fbfb5030129ee364d661dd2b56d7798f5cebc619.tar.gz
emacs-fbfb5030129ee364d661dd2b56d7798f5cebc619.tar.bz2
emacs-fbfb5030129ee364d661dd2b56d7798f5cebc619.zip
* lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Fix string-search.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/comp.el2
1 files changed, 1 insertions, 1 deletions
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))