X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fmarker.c;h=0a68b4464386be112c9b0ab748c13b09af79d970;hp=59a81aaaf6179854957cc4c3003346aaa8363fec;hb=a71e0987b7080176e0046b0b0ed72a9a70e2571d;hpb=0e904fc68e7429eda789ded8f73075ead2ad2584 diff --git a/src/marker.c b/src/marker.c index 59a81aa..0a68b44 100644 --- a/src/marker.c +++ b/src/marker.c @@ -32,6 +32,7 @@ Boston, MA 02111-1307, USA. */ #include #include "lisp.h" +#include #include "buffer.h" @@ -95,9 +96,14 @@ marker_hash (Lisp_Object obj, int depth) return hash; } +static const struct lrecord_description marker_description[] = { + { XD_LISP_OBJECT, offsetof(struct Lisp_Marker, next), 3 }, + { XD_END } +}; + DEFINE_BASIC_LRECORD_IMPLEMENTATION ("marker", marker, mark_marker, print_marker, 0, - marker_equal, marker_hash, + marker_equal, marker_hash, marker_description, struct Lisp_Marker); /* Operations on markers. */