# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 986927731 0
# Node ID aecc289cb0defb909ed77f2db57aeef3928b6852
# Parent  bcbc0628e2e558dccb1651ed8b0e78b5ff79f3c5
(Fcompare_strings): Fix return values.

diff -r bcbc0628e2e5 -r aecc289cb0de src/fns.c
--- a/src/fns.c	Tue Apr 10 16:13:33 2001 +0000
+++ b/src/fns.c	Tue Apr 10 18:35:31 2001 +0000
@@ -326,9 +326,9 @@
 	 past the character that we are comparing;
 	 hence we don't add or subtract 1 here.  */
       if (c1 < c2)
-	return make_number (- i1);
+	return make_number (- i1 + XINT (start1));
       else
-	return make_number (i1);
+	return make_number (i1 - XINT (start1));
     }
 
   if (i1 < end1_char)