Mercurial > hg > xemacs-beta
diff src/extents.c @ 420:41dbb7a9d5f2 r21-2-18
Import from CVS: tag r21-2-18
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:24:09 +0200 |
| parents | 697ef44129c6 |
| children | 11054d720c21 |
line wrap: on
line diff
--- a/src/extents.c Mon Aug 13 11:23:14 2007 +0200 +++ b/src/extents.c Mon Aug 13 11:24:09 2007 +0200 @@ -927,7 +927,7 @@ DEFINE_LRECORD_IMPLEMENTATION ("extent-auxiliary", extent_auxiliary, mark_extent_auxiliary, internal_object_printer, - 0, 0, 0, struct extent_auxiliary); + 0, 0, 0, 0, struct extent_auxiliary); void allocate_extent_auxiliary (EXTENT ext) @@ -1025,7 +1025,7 @@ DEFINE_LRECORD_IMPLEMENTATION ("extent-info", extent_info, mark_extent_info, internal_object_printer, - finalize_extent_info, 0, 0, + finalize_extent_info, 0, 0, 0, struct extent_info); static Lisp_Object @@ -2924,6 +2924,12 @@ static int extent_remprop (Lisp_Object obj, Lisp_Object prop); static Lisp_Object extent_plist (Lisp_Object obj); +static const struct lrecord_description extent_description[] = { + { XD_LISP_OBJECT, offsetof(struct extent, object), 2 }, + { XD_LISP_OBJECT, offsetof(struct extent, plist), 1 }, + { XD_END } +}; + DEFINE_BASIC_LRECORD_IMPLEMENTATION_WITH_PROPS ("extent", extent, mark_extent, print_extent, @@ -2933,6 +2939,7 @@ Shaft city. */ 0, extent_equal, extent_hash, + extent_description, extent_getprop, extent_putprop, extent_remprop, extent_plist, struct extent);