Mercurial > hg > xemacs-beta

comparison src/extents.h @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children b8cc9ab3f761
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
175 only be used on extents known not to have a parent. The other 175 only be used on extents known not to have a parent. The other
176 versions chase down any parent links. */ 176 versions chase down any parent links. */
177 177
178 #define extent_no_chase_normal_field(e, field) ((e)->flags.field) 178 #define extent_no_chase_normal_field(e, field) ((e)->flags.field)
179 179
180 INLINE struct extent_auxiliary *extent_aux_or_default (EXTENT e); 180 INLINE_HEADER struct extent_auxiliary *extent_aux_or_default (EXTENT e);
181 INLINE struct extent_auxiliary * 181 INLINE_HEADER struct extent_auxiliary *
182 extent_aux_or_default (EXTENT e) 182 extent_aux_or_default (EXTENT e)
183 { 183 {
184 return e->flags.has_aux ? 184 return e->flags.has_aux ?
185 XEXTENT_AUXILIARY (XCAR (e->plist)) : 185 XEXTENT_AUXILIARY (XCAR (e->plist)) :
186 & extent_auxiliary_defaults; 186 & extent_auxiliary_defaults;
257 #define extent_duplicable_p(e) extent_normal_field (e, duplicable) 257 #define extent_duplicable_p(e) extent_normal_field (e, duplicable)
258 #define extent_detachable_p(e) extent_normal_field (e, detachable) 258 #define extent_detachable_p(e) extent_normal_field (e, detachable)
259 #define extent_internal_p(e) extent_normal_field (e, internal) 259 #define extent_internal_p(e) extent_normal_field (e, internal)
260 #define extent_in_red_event_p(e) extent_normal_field (e, in_red_event) 260 #define extent_in_red_event_p(e) extent_normal_field (e, in_red_event)
261 261
262 INLINE Lisp_Object * extent_no_chase_plist_addr (EXTENT e); 262 INLINE_HEADER Lisp_Object * extent_no_chase_plist_addr (EXTENT e);
263 INLINE Lisp_Object * 263 INLINE_HEADER Lisp_Object *
264 extent_no_chase_plist_addr (EXTENT e) 264 extent_no_chase_plist_addr (EXTENT e)
265 { 265 {
266 return e->flags.has_aux ? &XCDR (e->plist) : &e->plist; 266 return e->flags.has_aux ? &XCDR (e->plist) : &e->plist;
267 } 267 }
268 268
337 EXTENT extent_ancestor_1 (EXTENT e); 337 EXTENT extent_ancestor_1 (EXTENT e);
338 338
339 /* extent_ancestor() chases all the parent links until there aren't any 339 /* extent_ancestor() chases all the parent links until there aren't any
340 more. extent_ancestor_1() does the same thing but it a function; 340 more. extent_ancestor_1() does the same thing but it a function;
341 the following optimizes the most common case. */ 341 the following optimizes the most common case. */
342 INLINE EXTENT extent_ancestor (EXTENT e); 342 INLINE_HEADER EXTENT extent_ancestor (EXTENT e);
343 INLINE EXTENT 343 INLINE_HEADER EXTENT
344 extent_ancestor (EXTENT e) 344 extent_ancestor (EXTENT e)
345 { 345 {
346 return e->flags.has_parent ? extent_ancestor_1 (e) : e; 346 return e->flags.has_parent ? extent_ancestor_1 (e) : e;
347 } 347 }
348 348