Mercurial > emacs
comparison src/intervals.c @ 4962:99edf052bfa0
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 |
comparison
equal
deleted
inserted
replaced
4961:dd67510308ae | 4962:99edf052bfa0 |
---|---|
40 | 40 |
41 #include <config.h> | 41 #include <config.h> |
42 #include "lisp.h" | 42 #include "lisp.h" |
43 #include "intervals.h" | 43 #include "intervals.h" |
44 #include "buffer.h" | 44 #include "buffer.h" |
45 #include "puresize.h" | |
45 | 46 |
46 /* The rest of the file is within this conditional. */ | 47 /* The rest of the file is within this conditional. */ |
47 #ifdef USE_TEXT_PROPERTIES | 48 #ifdef USE_TEXT_PROPERTIES |
48 | 49 |
49 /* Factor for weight-balancing interval trees. */ | 50 /* Factor for weight-balancing interval trees. */ |
56 | 57 |
57 INTERVAL | 58 INTERVAL |
58 create_root_interval (parent) | 59 create_root_interval (parent) |
59 Lisp_Object parent; | 60 Lisp_Object parent; |
60 { | 61 { |
61 INTERVAL new = make_interval (); | 62 INTERVAL new; |
63 | |
64 CHECK_IMPURE (parent); | |
65 | |
66 new = make_interval (); | |
62 | 67 |
63 if (XTYPE (parent) == Lisp_Buffer) | 68 if (XTYPE (parent) == Lisp_Buffer) |
64 { | 69 { |
65 new->total_length = (BUF_Z (XBUFFER (parent)) | 70 new->total_length = (BUF_Z (XBUFFER (parent)) |
66 - BUF_BEG (XBUFFER (parent))); | 71 - BUF_BEG (XBUFFER (parent))); |