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 | d4f28aea7e51c0b423830659173fdde3b96c1fa1 (patch) | |
| tree | dd0b47d189d2ccc246acb4d9ee59e8754fc3008a /src/intervals.c | |
| parent | 89aa3a4eb44988ea740afd272dbbeb3c1624c15a (diff) | |
| download | emacs-d4f28aea7e51c0b423830659173fdde3b96c1fa1.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) { |