# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 777602009 0
# Node ID 4f0a475b1fa9ea1170f81425f9acf3750c1e6c87
# Parent  8a1bc8b28d1047565f71812e6bfa59b5ef5fdfc9
(Fstring_match): Fix sign error.

diff -r 8a1bc8b28d10 -r 4f0a475b1fa9 src/search.c
--- a/src/search.c	Mon Aug 22 23:27:23 1994 +0000
+++ b/src/search.c	Tue Aug 23 00:33:29 1994 +0000
@@ -215,7 +215,7 @@
       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);
     }