X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fmule-charset.c;h=2f44aa09b7c4361c88127dfc4beb3055e5d2e2f0;hp=712263a62e0fc1f74008e9ad10fc74bc44f0fee8;hb=a71e0987b7080176e0046b0b0ed72a9a70e2571d;hpb=0e904fc68e7429eda789ded8f73075ead2ad2584 diff --git a/src/mule-charset.c b/src/mule-charset.c index 712263a..2f44aa0 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -25,6 +25,7 @@ Boston, MA 02111-1307, USA. */ #include #include "lisp.h" +#include #include "buffer.h" #include "chartab.h" @@ -441,8 +442,13 @@ print_charset (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) write_c_string (buf, printcharfun); } +static const struct lrecord_description charset_description[] = { + { XD_LISP_OBJECT, offsetof(struct Lisp_Charset, name), 7 }, + { XD_END } +}; + DEFINE_LRECORD_IMPLEMENTATION ("charset", charset, - mark_charset, print_charset, 0, 0, 0, + mark_charset, print_charset, 0, 0, 0, charset_description, struct Lisp_Charset); /* Make a new charset. */