Mercurial > hg > xemacs-beta

comparison src/mule-charset.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 e804706bfb8c
children 95016f13131a
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
439 print_internal (CHARSET_REGISTRY (cs), printcharfun, 0); 439 print_internal (CHARSET_REGISTRY (cs), printcharfun, 0);
440 sprintf (buf, " 0x%x>", cs->header.uid); 440 sprintf (buf, " 0x%x>", cs->header.uid);
441 write_c_string (buf, printcharfun); 441 write_c_string (buf, printcharfun);
442 } 442 }
443 443
444 static const struct lrecord_description charset_description[] = {
445 { XD_LISP_OBJECT, offsetof(struct Lisp_Charset, name), 7 },
446 { XD_END }
447 };
448
444 DEFINE_LRECORD_IMPLEMENTATION ("charset", charset, 449 DEFINE_LRECORD_IMPLEMENTATION ("charset", charset,
445 mark_charset, print_charset, 0, 0, 0, 450 mark_charset, print_charset, 0, 0, 0, charset_description,
446 struct Lisp_Charset); 451 struct Lisp_Charset);
447 /* Make a new charset. */ 452 /* Make a new charset. */
448 453
449 static Lisp_Object 454 static Lisp_Object
450 make_charset (int id, Lisp_Object name, unsigned char rep_bytes, 455 make_charset (int id, Lisp_Object name, unsigned char rep_bytes,