diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-11-10 20:11:44 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-11-10 20:11:44 +0000 |
commit | 328c0f1fe5a0afd9ed7bf80630cf121c57012688 (patch) | |
tree | 0f997a70e7486b397080443cd5baaea511b704ed /src/intervals.c | |
parent | 8a981af5bb07a923b61828eb6fa450c73de0b136 (diff) | |
download | emacs-328c0f1fe5a0afd9ed7bf80630cf121c57012688.tar.gz |
Include puresize.h.
(create_root_interval): Check to see if PARENT is in
pure memory. If so, we cannot write it.
Diffstat (limited to 'src/intervals.c')
-rw-r--r-- | src/intervals.c | 7 |
1 files changed, 6 insertions, 1 deletions
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) { |