Mercurial > hg > xemacs-beta

comparison src/events.c @ 962:bbc2941a94d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-13 11:37:20 by michaels] 2002-08-12 David Bush <David.Bush@intel.com> * events.c: Use DEFINE_BASIC_LRECORD_IMPLEMENTATION instead of DEFINE_LRECORD_IMPLEMENTATION for the new event data objects to cause the objects to be flagged as basic.
author michaels
date Tue, 13 Aug 2002 11:37:32 +0000
parents 345b7d75cab4
children e22b0213b713
comparison
equal deleted inserted replaced
961:d46451e73f6d 962:bbc2941a94d7
632 632
633 static unsigned long 633 static unsigned long
634 magic_data_hash (Lisp_Object obj, int depth) 634 magic_data_hash (Lisp_Object obj, int depth)
635 {assert(0); return 1;} 635 {assert(0); return 1;}
636 636
637 DEFINE_LRECORD_IMPLEMENTATION ("key-data", key_data, 637 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("key-data", key_data,
638 0, /*dumpable-flag*/ 638 0, /*dumpable-flag*/
639 mark_key_data, 639 mark_key_data,
640 print_key_data, 0, 640 print_key_data, 0,
641 key_data_equal, key_data_hash, key_data_description, 641 key_data_equal, key_data_hash,
642 Lisp_Key_Data); 642 key_data_description,
643 643 Lisp_Key_Data);
644 DEFINE_LRECORD_IMPLEMENTATION ("button-data", button_data, 644
645 0, /*dumpable-flag*/ 645 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("button-data", button_data,
646 mark_button_data, print_button_data, 0, 646 0, /*dumpable-flag*/
647 button_data_equal, button_data_hash, button_data_description, 647 mark_button_data, print_button_data, 0,
648 Lisp_Button_Data); 648 button_data_equal, button_data_hash,
649 649 button_data_description,
650 DEFINE_LRECORD_IMPLEMENTATION ("motion-data", motion_data, 650 Lisp_Button_Data);
651 0, /*dumpable-flag*/ 651
652 mark_motion_data, print_motion_data, 0, 652 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("motion-data", motion_data,
653 motion_data_equal, motion_data_hash, motion_data_description, 653 0, /*dumpable-flag*/
654 Lisp_Motion_Data); 654 mark_motion_data, print_motion_data, 0,
655 655 motion_data_equal, motion_data_hash,
656 DEFINE_LRECORD_IMPLEMENTATION ("process-data", process_data, 656 motion_data_description,
657 0, /*dumpable-flag*/ 657 Lisp_Motion_Data);
658 mark_process_data, 658
659 print_process_data, 0, 659 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("process-data", process_data,
660 process_data_equal, process_data_hash, process_data_description, 660 0, /*dumpable-flag*/
661 Lisp_Process_Data); 661 mark_process_data,
662 662 print_process_data, 0,
663 DEFINE_LRECORD_IMPLEMENTATION ("timeout-data", timeout_data, 663 process_data_equal, process_data_hash,
664 0, /*dumpable-flag*/ 664 process_data_description,
665 mark_timeout_data, 665 Lisp_Process_Data);
666 print_timeout_data, 0, 666
667 timeout_data_equal, timeout_data_hash, timeout_data_description, 667 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("timeout-data", timeout_data,
668 Lisp_Timeout_Data); 668 0, /*dumpable-flag*/
669 669 mark_timeout_data,
670 DEFINE_LRECORD_IMPLEMENTATION ("eval-data", eval_data, 670 print_timeout_data, 0,
671 0, /*dumpable-flag*/ 671 timeout_data_equal, timeout_data_hash,
672 mark_eval_data, 672 timeout_data_description,
673 print_eval_data, 0, 673 Lisp_Timeout_Data);
674 eval_data_equal, eval_data_hash, eval_data_description, 674
675 Lisp_Eval_Data); 675 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("eval-data", eval_data,
676 676 0, /*dumpable-flag*/
677 DEFINE_LRECORD_IMPLEMENTATION ("misc-user-data", misc_user_data, 677 mark_eval_data,
678 0, /*dumpable-flag*/ 678 print_eval_data, 0,
679 mark_misc_user_data, 679 eval_data_equal, eval_data_hash,
680 print_misc_user_data, 680 eval_data_description,
681 0, misc_user_data_equal, 681 Lisp_Eval_Data);
682 misc_user_data_hash, misc_user_data_description, 682
683 Lisp_Misc_User_Data); 683 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("misc-user-data", misc_user_data,
684 684 0, /*dumpable-flag*/
685 DEFINE_LRECORD_IMPLEMENTATION ("magic-eval-data", magic_eval_data, 685 mark_misc_user_data,
686 0, /*dumpable-flag*/ 686 print_misc_user_data,
687 mark_magic_eval_data, 687 0, misc_user_data_equal,
688 print_magic_eval_data, 0, 688 misc_user_data_hash,
689 magic_eval_data_equal, 689 misc_user_data_description,
690 magic_eval_data_hash, magic_eval_data_description, 690 Lisp_Misc_User_Data);
691 Lisp_Magic_Eval_Data); 691
692 692 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("magic-eval-data", magic_eval_data,
693 DEFINE_LRECORD_IMPLEMENTATION ("magic-data", magic_data, 693 0, /*dumpable-flag*/
694 0, /*dumpable-flag*/ 694 mark_magic_eval_data,
695 mark_magic_data, print_magic_data, 0, 695 print_magic_eval_data, 0,
696 magic_data_equal, magic_data_hash, magic_data_description, 696 magic_eval_data_equal,
697 Lisp_Magic_Data); 697 magic_eval_data_hash,
698 magic_eval_data_description,
699 Lisp_Magic_Eval_Data);
700
701 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("magic-data", magic_data,
702 0, /*dumpable-flag*/
703 mark_magic_data, print_magic_data, 0,
704 magic_data_equal, magic_data_hash,
705 magic_data_description,
706 Lisp_Magic_Data);
698 707
699 708
700 709
701 #else /* not USE_KKCC */ 710 #else /* not USE_KKCC */
702 /* Make sure we lose quickly if we try to use this event */ 711 /* Make sure we lose quickly if we try to use this event */