(make_pure_string): If we USE_TEXT_PROPERTIES, set the

interval of the pure string to NULL_INTERVAL.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 1e207b8f19b..f17db1ff07c 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1011,6 +1011,12 @@ make_pure_string (data, length)
   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;