Mercurial > hg > xemacs-beta
comparison src/event-msw.c @ 791:7b1f30330a19
[xemacs-hg @ 2002-03-21 18:55:01 by adrian]
[PATCH] Assert around line 1600 in event-msw.c <3cz31qp4.fsf@arbortext.com>
author | adrian |
---|---|
date | Thu, 21 Mar 2002 18:55:09 +0000 |
parents | 026c5bf9c134 |
children | e38acbeb1cae |
comparison
equal
deleted
inserted
replaced
790:755d0acc05ea | 791:7b1f30330a19 |
---|---|
1144 | 1144 |
1145 mswindows_waitable_handles [ix] = | 1145 mswindows_waitable_handles [ix] = |
1146 mswindows_waitable_handles [--mswindows_waitable_count]; | 1146 mswindows_waitable_handles [--mswindows_waitable_count]; |
1147 } | 1147 } |
1148 #endif /* HAVE_MSG_SELECT */ | 1148 #endif /* HAVE_MSG_SELECT */ |
1149 | |
1150 /* | |
1151 * Given a lisp process pointer remove the corresponding process handle | |
1152 * from mswindows_waitable_handles if it is in it. Normally the handle is | |
1153 * removed when the process terminates, but if the lisp process structure | |
1154 * is deleted before the process terminates we must delete the process | |
1155 * handle since it will be invalid and will cause the wait to fail | |
1156 */ | |
1157 void | |
1158 mswindows_unwait_process (Lisp_Process *p) | |
1159 { | |
1160 #ifndef HAVE_MSG_SELECT | |
1161 remove_waitable_handle (get_nt_process_handle (p)); | |
1162 #endif /* HAVE_MSG_SELECT */ | |
1163 } | |
1149 | 1164 |
1150 | 1165 |
1151 /************************************************************************/ | 1166 /************************************************************************/ |
1152 /* Event pump */ | 1167 /* Event pump */ |
1153 /************************************************************************/ | 1168 /************************************************************************/ |