Mercurial > emacs

diff src/intervals.c @ 4962:99edf052bfa0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include puresize.h. (create_root_interval): Check to see if PARENT is in pure memory. If so, we cannot write it.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Nov 1993 20:11:44 +0000
parents a05b833e61c4
children d040c1a8ccbe
line wrap: on
line diff
--- a/src/intervals.c	Wed Nov 10 20:09:54 1993 +0000
+++ b/src/intervals.c	Wed Nov 10 20:11:44 1993 +0000
@@ -42,6 +42,7 @@
 #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 @@
 create_root_interval (parent)
      Lisp_Object parent;
 {
-  INTERVAL new = make_interval ();
+  INTERVAL new;
+
+  CHECK_IMPURE (parent);
+
+  new = make_interval ();
 
   if (XTYPE (parent) == Lisp_Buffer)
     {