comparison src/tooltalk.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 697ef44129c6
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
1299 1299
1300 1300
1301 void 1301 void
1302 syms_of_tooltalk (void) 1302 syms_of_tooltalk (void)
1303 { 1303 {
1304 INIT_LRECORD_IMPLEMENTATION (tooltalk_message);
1305 INIT_LRECORD_IMPLEMENTATION (tooltalk_pattern);
1306
1304 defsymbol (&Qtooltalk_messagep, "tooltalk-message-p"); 1307 defsymbol (&Qtooltalk_messagep, "tooltalk-message-p");
1305 DEFSUBR (Ftooltalk_message_p); 1308 DEFSUBR (Ftooltalk_message_p);
1306 defsymbol (&Qtooltalk_patternp, "tooltalk-pattern-p"); 1309 defsymbol (&Qtooltalk_patternp, "tooltalk-pattern-p");
1307 DEFSUBR (Ftooltalk_pattern_p); 1310 DEFSUBR (Ftooltalk_pattern_p);
1308 defsymbol (&Qtooltalk_message_handler_hook, "tooltalk-message-handler-hook"); 1311 defsymbol (&Qtooltalk_message_handler_hook, "tooltalk-message-handler-hook");