Mercurial > hg > xemacs-beta

comparison src/event-msw.c @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 501cfd01ee6d
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
868 } 868 }
869 869
870 /* 870 /*
871 * Add an emacs event to the proper dispatch queue 871 * Add an emacs event to the proper dispatch queue
872 */ 872 */
873 static void 873 void
874 mswindows_enqueue_dispatch_event (Lisp_Object event) 874 mswindows_enqueue_dispatch_event (Lisp_Object event)
875 { 875 {
876 int user_p = mswindows_user_event_p (XEVENT(event)); 876 int user_p = mswindows_user_event_p (XEVENT(event));
877 enqueue_event (event, 877 enqueue_event (event,
878 user_p ? &mswindows_u_dispatch_event_queue : 878 user_p ? &mswindows_u_dispatch_event_queue :
1470 Remove the handle from the wait vector, and make status_notify 1470 Remove the handle from the wait vector, and make status_notify
1471 note the exited process */ 1471 note the exited process */
1472 mswindows_waitable_handles [ix] = 1472 mswindows_waitable_handles [ix] =
1473 mswindows_waitable_handles [--mswindows_waitable_count]; 1473 mswindows_waitable_handles [--mswindows_waitable_count];
1474 kick_status_notify (); 1474 kick_status_notify ();
1475 /* Have to return something: there may be no accompanying 1475 /* We need to return a process event here so that
1476 process event */ 1476 (1) accept-process-output will return when called on this
1477 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE); 1477 process, and (2) status notifications will happen in
1478 accept-process-output, sleep-for, and sit-for. */
1479 /* #### horrible kludge till my real process fixes go in.
1480 */
1481 if (!NILP (Vprocess_list))
1482 {
1483 Lisp_Object vaffanculo = XCAR (Vprocess_list);
1484 mswindows_enqueue_process_event (XPROCESS (vaffanculo));
1485 }
1486 else /* trash me soon. */
1487 /* Have to return something: there may be no accompanying
1488 process event */
1489 mswindows_enqueue_magic_event (NULL, XM_BUMPQUEUE);
1478 } 1490 }
1479 } 1491 }
1480 #endif 1492 #endif
1481 } /* while */ 1493 } /* while */
1482 } 1494 }