comparison src/tooltalk.c @ 288:e11d67e05968 r21-0b42

Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 7df0dd720c89
children 8429d81ab209
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
1419 Vtooltalk_unprocessed_message_hook = Qnil; 1419 Vtooltalk_unprocessed_message_hook = Qnil;
1420 1420
1421 Tooltalk_Message_plist_str = build_string ("Tooltalk Message plist"); 1421 Tooltalk_Message_plist_str = build_string ("Tooltalk Message plist");
1422 Tooltalk_Pattern_plist_str = build_string ("Tooltalk Pattern p plist"); 1422 Tooltalk_Pattern_plist_str = build_string ("Tooltalk Pattern p plist");
1423 1423
1424 staticpro(&Tooltalk_Message_plist_str);
1425 staticpro(&Tooltalk_Pattern_plist_str);
1426
1424 #define MAKE_CONSTANT(name) do { \ 1427 #define MAKE_CONSTANT(name) do { \
1425 defsymbol (&Q_ ## name, #name); \ 1428 defsymbol (&Q_ ## name, #name); \
1426 Fset (Q_ ## name, make_int (name)); \ 1429 Fset (Q_ ## name, make_int (name)); \
1427 } while (0) 1430 } while (0)
1428 1431