branch: externals/compat
commit 4806d28169fbb52bbdc5f9f841227003ddbc4a41
Author: aagon <aymeric.a...@hotmail.fr>
Commit: GitHub <nore...@github.com>
Guarantee START-POS arg of string-search to be a fixnum (#16)
---
compat-tests.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compat-tests.el b/compat-tests.el
index c3e5a19090..0f317c3f54 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -2036,7 +2036,7 @@
(should-equal 2 (string-search "a\U00010f98z" "a\U00010f98a\U00010f98z"))
(should-error (string-search "a" "abc" -1) :type '(args-out-of-range -1))
(should-error (string-search "a" "abc" 4) :type '(args-out-of-range 4))
- (should-error (string-search "a" "abc" 100000000000) :type
'(args-out-of-range 100000000000))
+ (should-error (string-search "a" "abc" most-positive-fixnum) :type
'(args-out-of-range most-positive-fixnum))
(should-not (string-search "a" "aaa" 3))
(should-not (string-search "aa" "aa" 1))
(should-not (string-search "\0" ""))
