Mercurial > hg > xemacs-beta

comparison src/extents.h @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 489f57a838ef
children d44af0c54775
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
77 unsigned int duplicable : 1; /* 11 copied to strings by kill/undo */ 77 unsigned int duplicable : 1; /* 11 copied to strings by kill/undo */
78 unsigned int REPLICATING : 1; /* 12 invoke old extent-replica behav.*/ 78 unsigned int REPLICATING : 1; /* 12 invoke old extent-replica behav.*/
79 /* Not used any more */ 79 /* Not used any more */
80 unsigned int detachable : 1; /* 13 extent detaches if text deleted */ 80 unsigned int detachable : 1; /* 13 extent detaches if text deleted */
81 unsigned int internal : 1; /* 14 used by map-extents etc. */ 81 unsigned int internal : 1; /* 14 used by map-extents etc. */
82 unsigned int unused15 : 1; /* 15 unused */ 82 unsigned int in_red_event : 1; /* 15 An event has been spawned for
83 initial redisplay. Not exported to
84 the lisp level */
83 unsigned int unused16 : 1; /* 16 unused */ 85 unsigned int unused16 : 1; /* 16 unused */
84 /* --- Adding more flags will cause the extent struct grow by another 86 /* --- Adding more flags will cause the extent struct grow by another
85 word. It's not clear that this would make a difference, however, 87 word. It's not clear that this would make a difference, however,
86 because on 32-bit machines things tend to get allocated in chunks 88 because on 32-bit machines things tend to get allocated in chunks
87 of 4 bytes. */ 89 of 4 bytes. */
130 avoid getting hosed by just-freed objects. */ 132 avoid getting hosed by just-freed objects. */
131 Lisp_Object children; 133 Lisp_Object children;
132 Lisp_Object invisible; 134 Lisp_Object invisible;
133 Lisp_Object read_only; 135 Lisp_Object read_only;
134 Lisp_Object mouse_face; 136 Lisp_Object mouse_face;
135 Lisp_Object one_shot_function; 137 Lisp_Object initial_redisplay_function;
136 #ifdef ENERGIZE 138 #ifdef ENERGIZE
137 Energize_Extent_Data *energize_data; 139 Energize_Extent_Data *energize_data;
138 #endif 140 #endif
139 int priority; 141 int priority;
140 }; 142 };
253 #define extent_end_glyph(e) extent_aux_field (e, end_glyph) 255 #define extent_end_glyph(e) extent_aux_field (e, end_glyph)
254 #define extent_priority(e) extent_aux_field (e, priority) 256 #define extent_priority(e) extent_aux_field (e, priority)
255 #define extent_invisible(e) extent_aux_field (e, invisible) 257 #define extent_invisible(e) extent_aux_field (e, invisible)
256 #define extent_read_only(e) extent_aux_field (e, read_only) 258 #define extent_read_only(e) extent_aux_field (e, read_only)
257 #define extent_mouse_face(e) extent_aux_field (e, mouse_face) 259 #define extent_mouse_face(e) extent_aux_field (e, mouse_face)
258 #define extent_one_shot_function(e) extent_aux_field (e, one_shot_function) 260 #define extent_initial_redisplay_function(e) extent_aux_field (e, initial_redisplay_function)
259 #ifdef ENERGIZE 261 #ifdef ENERGIZE
260 #define extent_energize_data(e) extent_aux_field (e, energize_data) 262 #define extent_energize_data(e) extent_aux_field (e, energize_data)
261 #endif 263 #endif
262 264
263 #define set_extent_begin_glyph(e, value) \ 265 #define set_extent_begin_glyph(e, value) \
270 set_extent_aux_field (e, invisible, value) 272 set_extent_aux_field (e, invisible, value)
271 #define set_extent_read_only(e, value) \ 273 #define set_extent_read_only(e, value) \
272 set_extent_aux_field (e, read_only, value) 274 set_extent_aux_field (e, read_only, value)
273 #define set_extent_mouse_face(e, value) \ 275 #define set_extent_mouse_face(e, value) \
274 set_extent_aux_field (e, mouse_face, value) 276 set_extent_aux_field (e, mouse_face, value)
275 /* Use Fset_extent_one_shot_function unless you know what you are ding */ 277 /* Use Fset_extent_initial_redisplay_function unless you know what you are ding */
276 #define set_extent_one_shot_function(e, value) \ 278 #define set_extent_initial_redisplay_function(e, value) \
277 set_extent_aux_field (e, one_shot_function, value) 279 set_extent_aux_field (e, initial_redisplay_function, value)
278 #ifdef ENERGIZE 280 #ifdef ENERGIZE
279 #define set_extent_energize_data(e, value) \ 281 #define set_extent_energize_data(e, value) \
280 set_extent_aux_field (e, energize_data, value) 282 set_extent_aux_field (e, energize_data, value)
281 #endif 283 #endif
282 284
288 #define extent_end_open_p(e) extent_normal_field (e, end_open) 290 #define extent_end_open_p(e) extent_normal_field (e, end_open)
289 #define extent_unique_p(e) extent_normal_field (e, unique) 291 #define extent_unique_p(e) extent_normal_field (e, unique)
290 #define extent_duplicable_p(e) extent_normal_field (e, duplicable) 292 #define extent_duplicable_p(e) extent_normal_field (e, duplicable)
291 #define extent_detachable_p(e) extent_normal_field (e, detachable) 293 #define extent_detachable_p(e) extent_normal_field (e, detachable)
292 #define extent_internal_p(e) extent_normal_field (e, internal) 294 #define extent_internal_p(e) extent_normal_field (e, internal)
295 #define extent_in_red_event_p(e) extent_normal_field (e, in_red_event)
293 296
294 #define extent_no_chase_plist_addr(e) \ 297 #define extent_no_chase_plist_addr(e) \
295 MAC_BEGIN \ 298 MAC_BEGIN \
296 MAC_DECLARE (EXTENT, MTplist_extent, e) \ 299 MAC_DECLARE (EXTENT, MTplist_extent, e) \
297 (MTplist_extent->flags.has_aux ? \ 300 (MTplist_extent->flags.has_aux ? \