Mercurial > hg > xemacs-beta
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"); |