# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 786575241 0
# Node ID 6f6db8f5b8a00e56e461836c4b86d2e0de8146ce
# Parent  9d72d79329c3a10090fc95756c8dbdd0eb9618e5
(internal_equal): Call compare_string_intervals.
(Fstring_equal): Doc fix.

diff -r 9d72d79329c3 -r 6f6db8f5b8a0 src/fns.c
--- a/src/fns.c	Sun Dec 04 21:07:03 1994 +0000
+++ b/src/fns.c	Sun Dec 04 21:07:21 1994 +0000
@@ -127,7 +127,7 @@
 
 DEFUN ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0,
   "T if two strings have identical contents.\n\
-Case is significant.\n\
+Case is significant, but text properties are ignored.\n\
 Symbols are also allowed; their print names are used instead.")
   (s1, s2)
      register Lisp_Object s1, s2;
@@ -930,6 +930,13 @@
 	return 0;
       if (bcmp (XSTRING (o1)->data, XSTRING (o2)->data, XSTRING (o1)->size))
 	return 0;
+#ifdef USE_TEXT_PROPERTIES
+      /* If the strings have intervals, verify they match;
+	 if not, they are unequal.  */
+      if ((XSTRING (o1)->intervals != 0 || XSTRING (o2)->intervals != 0)
+	  && ! compare_string_intervals (o1, o2))
+	return 0;
+#endif
       return 1;
     }
   return 0;