From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 23 Aug 1994 00:33:29 +0000 (+0000)
Subject: (Fstring_match): Fix sign error.
X-Git-Tag: emacs-19.34~7269
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26faf9f443bd227a7852225718addfac0cb1000a;p=emacs.git

(Fstring_match): Fix sign error.
---

diff --git a/src/search.c b/src/search.c
index ff9eefec917..7f006883270 100644
--- a/src/search.c
+++ b/src/search.c
@@ -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);
     }