Mercurial > hg > xemacs-beta

comparison src/extents.c @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents 697ef44129c6
children 11054d720c21
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
925 return data->parent; 925 return data->parent;
926 } 926 }
927 927
928 DEFINE_LRECORD_IMPLEMENTATION ("extent-auxiliary", extent_auxiliary, 928 DEFINE_LRECORD_IMPLEMENTATION ("extent-auxiliary", extent_auxiliary,
929 mark_extent_auxiliary, internal_object_printer, 929 mark_extent_auxiliary, internal_object_printer,
930 0, 0, 0, struct extent_auxiliary); 930 0, 0, 0, 0, struct extent_auxiliary);
931 931
932 void 932 void
933 allocate_extent_auxiliary (EXTENT ext) 933 allocate_extent_auxiliary (EXTENT ext)
934 { 934 {
935 Lisp_Object extent_aux; 935 Lisp_Object extent_aux;
1023 } 1023 }
1024 } 1024 }
1025 1025
1026 DEFINE_LRECORD_IMPLEMENTATION ("extent-info", extent_info, 1026 DEFINE_LRECORD_IMPLEMENTATION ("extent-info", extent_info,
1027 mark_extent_info, internal_object_printer, 1027 mark_extent_info, internal_object_printer,
1028 finalize_extent_info, 0, 0, 1028 finalize_extent_info, 0, 0, 0,
1029 struct extent_info); 1029 struct extent_info);
1030 1030
1031 static Lisp_Object 1031 static Lisp_Object
1032 allocate_extent_info (void) 1032 allocate_extent_info (void)
1033 { 1033 {
2922 static int extent_putprop (Lisp_Object obj, Lisp_Object prop, 2922 static int extent_putprop (Lisp_Object obj, Lisp_Object prop,
2923 Lisp_Object value); 2923 Lisp_Object value);
2924 static int extent_remprop (Lisp_Object obj, Lisp_Object prop); 2924 static int extent_remprop (Lisp_Object obj, Lisp_Object prop);
2925 static Lisp_Object extent_plist (Lisp_Object obj); 2925 static Lisp_Object extent_plist (Lisp_Object obj);
2926 2926
2927 static const struct lrecord_description extent_description[] = {
2928 { XD_LISP_OBJECT, offsetof(struct extent, object), 2 },
2929 { XD_LISP_OBJECT, offsetof(struct extent, plist), 1 },
2930 { XD_END }
2931 };
2932
2927 DEFINE_BASIC_LRECORD_IMPLEMENTATION_WITH_PROPS ("extent", extent, 2933 DEFINE_BASIC_LRECORD_IMPLEMENTATION_WITH_PROPS ("extent", extent,
2928 mark_extent, 2934 mark_extent,
2929 print_extent, 2935 print_extent,
2930 /* NOTE: If you declare a 2936 /* NOTE: If you declare a
2931 finalization method here, 2937 finalization method here,
2932 it will NOT be called. 2938 it will NOT be called.
2933 Shaft city. */ 2939 Shaft city. */
2934 0, 2940 0,
2935 extent_equal, extent_hash, 2941 extent_equal, extent_hash,
2942 extent_description,
2936 extent_getprop, extent_putprop, 2943 extent_getprop, extent_putprop,
2937 extent_remprop, extent_plist, 2944 extent_remprop, extent_plist,
2938 struct extent); 2945 struct extent);
2939 2946
2940 static Lisp_Object 2947 static Lisp_Object