From 06c5fe00340d6a79484611f426c69e6005a4abb2 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 10 Nov 1993 19:55:18 +0000
Subject: [PATCH] (make_pure_string): If we USE_TEXT_PROPERTIES, set the
 interval of the pure string to NULL_INTERVAL.

---
 src/alloc.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/alloc.c b/src/alloc.c
index 1e207b8f19..f17db1ff07 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;
-- 
2.39.2