Mercurial > emacs

comparison 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
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)));