Mercurial > emacs
comparison src/alloc.c @ 4212:a696547fb51e
(compact_strings): Add USE_TEXT_PROPERTIES conditional.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Jul 1993 22:29:26 +0000 |
| parents | 0b32ee899a3a |
| children | 15b073a6c860 |
comparison
equal
deleted
inserted
replaced
| 4211:b2e422a86641 | 4212:a696547fb51e |
|---|---|
| 2080 XSET (*objptr, Lisp_String, newaddr); | 2080 XSET (*objptr, Lisp_String, newaddr); |
| 2081 } | 2081 } |
| 2082 /* Store the actual size in the size field. */ | 2082 /* Store the actual size in the size field. */ |
| 2083 newaddr->size = size; | 2083 newaddr->size = size; |
| 2084 | 2084 |
| 2085 #ifdef USE_TEXT_PROPERTIES | |
| 2085 /* Now that the string has been relocated, rebalance its | 2086 /* Now that the string has been relocated, rebalance its |
| 2086 interval tree, and update the tree's parent pointer. */ | 2087 interval tree, and update the tree's parent pointer. */ |
| 2087 if (! NULL_INTERVAL_P (newaddr->intervals)) | 2088 if (! NULL_INTERVAL_P (newaddr->intervals)) |
| 2088 { | 2089 { |
| 2089 UNMARK_BALANCE_INTERVALS (newaddr->intervals); | 2090 UNMARK_BALANCE_INTERVALS (newaddr->intervals); |
| 2090 XSET (* (Lisp_Object *) &newaddr->intervals->parent, | 2091 XSET (* (Lisp_Object *) &newaddr->intervals->parent, |
| 2091 Lisp_String, | 2092 Lisp_String, |
| 2092 newaddr); | 2093 newaddr); |
| 2093 } | 2094 } |
| 2095 #endif /* USE_TEXT_PROPERTIES */ | |
| 2094 } | 2096 } |
| 2095 pos += STRING_FULLSIZE (size); | 2097 pos += STRING_FULLSIZE (size); |
| 2096 } | 2098 } |
| 2097 } | 2099 } |
| 2098 | 2100 |
