From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 10 Apr 2001 18:36:02 +0000 (+0000)
Subject: (Fcompare_strings): Fix return values.
X-Git-Tag: emacs-pretest-21.0.103~240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60f8d73535346769b3dd7b5332864a220012d6d5;p=emacs.git

(Fcompare_strings): Fix return values.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index bab28c171c2..bf6c5522d25 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2001-04-10  Gerd Moellmann  <gerd@gnu.org>
 
+	* fns.c (Fcompare_strings): Fix return values.
+
 	* window.c (window_scroll): Change the meaning of N to mean
 	N screen-fulls or N lines.
 	(window_scroll_pixel_based, window_scroll_line_based)
diff --git a/src/fns.c b/src/fns.c
index 4bd577772fd..ceda1cfbf41 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -326,9 +326,9 @@ If string STR1 is greater, the value is a positive number N;\n\
 	 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)