comparison src/extents.h @ 189:489f57a838ef r20-3b21

Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 3d6bfa290dbd
children e45d5e7c476e
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
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 unused15 : 1; /* 15 unused */
83 unsigned int unused16 : 1; /* 16 unused */ 83 unsigned int unused16 : 1; /* 16 unused */
84 /* --- Adding more flags will cause the extent struct grow by another 84 /* --- Adding more flags will cause the extent struct grow by another
85 word. It's not clear that this would make a difference, however, 85 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 86 because on 32-bit machines things tend to get allocated in chunks
87 of 4 bytes. */ 87 of 4 bytes. */
130 avoid getting hosed by just-freed objects. */ 130 avoid getting hosed by just-freed objects. */
131 Lisp_Object children; 131 Lisp_Object children;
132 Lisp_Object invisible; 132 Lisp_Object invisible;
133 Lisp_Object read_only; 133 Lisp_Object read_only;
134 Lisp_Object mouse_face; 134 Lisp_Object mouse_face;
135 Lisp_Object one_shot_function;
135 #ifdef ENERGIZE 136 #ifdef ENERGIZE
136 Energize_Extent_Data *energize_data; 137 Energize_Extent_Data *energize_data;
137 #endif 138 #endif
138 int priority; 139 int priority;
139 }; 140 };
252 #define extent_end_glyph(e) extent_aux_field (e, end_glyph) 253 #define extent_end_glyph(e) extent_aux_field (e, end_glyph)
253 #define extent_priority(e) extent_aux_field (e, priority) 254 #define extent_priority(e) extent_aux_field (e, priority)
254 #define extent_invisible(e) extent_aux_field (e, invisible) 255 #define extent_invisible(e) extent_aux_field (e, invisible)
255 #define extent_read_only(e) extent_aux_field (e, read_only) 256 #define extent_read_only(e) extent_aux_field (e, read_only)
256 #define extent_mouse_face(e) extent_aux_field (e, mouse_face) 257 #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)
257 #ifdef ENERGIZE 259 #ifdef ENERGIZE
258 #define extent_energize_data(e) extent_aux_field (e, energize_data) 260 #define extent_energize_data(e) extent_aux_field (e, energize_data)
259 #endif 261 #endif
260 262
261 #define set_extent_begin_glyph(e, value) \ 263 #define set_extent_begin_glyph(e, value) \
268 set_extent_aux_field (e, invisible, value) 270 set_extent_aux_field (e, invisible, value)
269 #define set_extent_read_only(e, value) \ 271 #define set_extent_read_only(e, value) \
270 set_extent_aux_field (e, read_only, value) 272 set_extent_aux_field (e, read_only, value)
271 #define set_extent_mouse_face(e, value) \ 273 #define set_extent_mouse_face(e, value) \
272 set_extent_aux_field (e, mouse_face, value) 274 set_extent_aux_field (e, mouse_face, value)
275 /* Use Fset_extent_one_shot_function unless you know what you are ding */
276 #define set_extent_one_shot_function(e, value) \
277 set_extent_aux_field (e, one_shot_function, value)
273 #ifdef ENERGIZE 278 #ifdef ENERGIZE
274 #define set_extent_energize_data(e, value) \ 279 #define set_extent_energize_data(e, value) \
275 set_extent_aux_field (e, energize_data, value) 280 set_extent_aux_field (e, energize_data, value)
276 #endif 281 #endif
277 282