From 328c0f1fe5a0afd9ed7bf80630cf121c57012688 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 10 Nov 1993 20:11:44 +0000
Subject: [PATCH] Include puresize.h. (create_root_interval): Check to see if
 PARENT is in pure memory.  If so, we cannot write it.

---
 src/intervals.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/intervals.c b/src/intervals.c
index a6be24f1860..59a0cd9a102 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -42,6 +42,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "lisp.h"
 #include "intervals.h"
 #include "buffer.h"
+#include "puresize.h"
 
 /* The rest of the file is within this conditional.  */
 #ifdef USE_TEXT_PROPERTIES
@@ -58,7 +59,11 @@ INTERVAL
 create_root_interval (parent)
      Lisp_Object parent;
 {
-  INTERVAL new = make_interval ();
+  INTERVAL new;
+
+  CHECK_IMPURE (parent);
+
+  new = make_interval ();
 
   if (XTYPE (parent) == Lisp_Buffer)
     {
-- 
2.39.5