Mercurial > hg > xemacs-beta
comparison src/events.c @ 122:d2f30a177268 r20-1b14
Import from CVS: tag r20-1b14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:26:03 +0200 |
parents | cca96a509cfe |
children | 9b50b4588a93 |
comparison
equal
deleted
inserted
replaced
121:419db647c998 | 122:d2f30a177268 |
---|---|
1095 motion The mouse moved. | 1095 motion The mouse moved. |
1096 process Input is available from a subprocess. | 1096 process Input is available from a subprocess. |
1097 timeout A timeout has expired. | 1097 timeout A timeout has expired. |
1098 eval This causes a specified action to occur when dispatched. | 1098 eval This causes a specified action to occur when dispatched. |
1099 magic Some window-system-specific event has occurred. | 1099 magic Some window-system-specific event has occurred. |
1100 dead The event has been deallocated. | |
1101 empty The event has been allocated but not assigned. | |
1102 | |
1100 */ | 1103 */ |
1101 (event)) | 1104 (event)) |
1102 { | 1105 { |
1103 CHECK_LIVE_EVENT (event); | 1106 CHECK_LIVE_EVENT (event); |
1104 switch (XEVENT (event)->event_type) | 1107 switch (XEVENT (event)->event_type) |
1128 return Qeval; | 1131 return Qeval; |
1129 | 1132 |
1130 case magic_event: | 1133 case magic_event: |
1131 case magic_eval_event: | 1134 case magic_eval_event: |
1132 return Qmagic; | 1135 return Qmagic; |
1136 | |
1137 case empty_event: | |
1138 return Qempty; | |
1139 | |
1140 case dead_event: | |
1141 return Qdead; | |
1133 | 1142 |
1134 default: | 1143 default: |
1135 abort (); | 1144 abort (); |
1136 return Qnil; | 1145 return Qnil; |
1137 } | 1146 } |
1839 props = Fcons (Qfunction, Fcons (Fevent_function (event), props)); | 1848 props = Fcons (Qfunction, Fcons (Fevent_function (event), props)); |
1840 break; | 1849 break; |
1841 | 1850 |
1842 case magic_eval_event: | 1851 case magic_eval_event: |
1843 case magic_event: | 1852 case magic_event: |
1853 case dead_event: | |
1854 case empty_event: | |
1844 break; | 1855 break; |
1845 | 1856 |
1846 default: | 1857 default: |
1847 abort (); | 1858 abort (); |
1848 break; /* not reached; warning suppression */ | 1859 break; /* not reached; warning suppression */ |