# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752961318 0
# Node ID 0f94e1e7d27329af09b0edb54078c79138d94336
# Parent  2da352ce967dec6050cc6a2cde29d73d8a7eebf6
(make_pure_string): If we USE_TEXT_PROPERTIES, set the
interval of the pure string to NULL_INTERVAL.

diff -r 2da352ce967d -r 0f94e1e7d273 src/alloc.c
--- a/src/alloc.c	Wed Nov 10 19:53:29 1993 +0000
+++ b/src/alloc.c	Wed Nov 10 19:55:18 1993 +0000
@@ -1011,6 +1011,12 @@
   XSTRING (new)->size = length;
   bcopy (data, XSTRING (new)->data, length);
   XSTRING (new)->data[length] = 0;
+
+  /* We must give strings in pure storage some kind of interval.  So we
+     give them a null one.  */
+#if defined (USE_TEXT_PROPERTIES)
+  XSTRING (new)->intervals = NULL_INTERVAL;
+#endif
   pureptr += (size + sizeof (int) - 1)
 	     / sizeof (int) * sizeof (int);
   return new;