1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00

(Fstring_match): Fix sign error.

This commit is contained in:
Karl Heuer 1994-08-23 00:33:29 +00:00
parent 6e50b66b3d
commit 26faf9f443

View File

@ -215,7 +215,7 @@ matched by parenthesis constructs in the pattern.")
CHECK_NUMBER (start, 2);
s = XINT (start);
if (s < 0 && -s <= len)
s = len - s;
s = len + s;
else if (0 > s || s > len)
args_out_of_range (string, start);
}