comparison src/objects.c @ 400:a86b2b5e0111 r21-2-30

Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 501cfd01ee6d
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
1007 /************************************************************************/ 1007 /************************************************************************/
1008 1008
1009 void 1009 void
1010 syms_of_objects (void) 1010 syms_of_objects (void)
1011 { 1011 {
1012 INIT_LRECORD_IMPLEMENTATION (color_instance);
1013 INIT_LRECORD_IMPLEMENTATION (font_instance);
1014
1012 DEFSUBR (Fcolor_specifier_p); 1015 DEFSUBR (Fcolor_specifier_p);
1013 DEFSUBR (Ffont_specifier_p); 1016 DEFSUBR (Ffont_specifier_p);
1014 DEFSUBR (Fface_boolean_specifier_p); 1017 DEFSUBR (Fface_boolean_specifier_p);
1015 1018
1016 defsymbol (&Qcolor_instancep, "color-instance-p"); 1019 defsymbol (&Qcolor_instancep, "color-instance-p");