Mercurial > hg > xemacs-beta

comparison src/event-msw.c @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 11cf20601dec
children b2472a1930f2
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
1140 if (!NILP (mswindows_handle_wm_command (frame, id))) 1140 if (!NILP (mswindows_handle_wm_command (frame, id)))
1141 break; 1141 break;
1142 #endif 1142 #endif
1143 1143
1144 #ifdef HAVE_TOOLBARS 1144 #ifdef HAVE_TOOLBARS
1145 O Toolbar Implementor, this place may have something for you!; 1145 /* O Toolbar Implementor, this place may have something for you!;*/
1146 #endif 1146 #endif
1147 1147
1148 /* Bite me - a spurious command. No abort(), for safety */ 1148 /* Bite me - a spurious command. No abort(), for safety */
1149 /* #### Perhaps, this message should be changed */ 1149 /* #### Perhaps, this message should be changed */
1150 error ("Cannot decode command. Tell kkm he's a parallelogramm, if you know" 1150 error ("Cannot decode command. Tell kkm he's a parallelogramm, if you know"
1581 Fdeallocate_event(emacs_event); 1581 Fdeallocate_event(emacs_event);
1582 --mswindows_quit_chars_count; 1582 --mswindows_quit_chars_count;
1583 } 1583 }
1584 } 1584 }
1585 1585
1586 #ifndef HAVE_X_WINDOWS
1586 /* This is called from GC when a process object is about to be freed. 1587 /* This is called from GC when a process object is about to be freed.
1587 If we've still got pointers to it in this file, we're gonna lose hard. 1588 If we've still got pointers to it in this file, we're gonna lose hard.
1588 */ 1589 */
1589 void 1590 void
1590 debug_process_finalization (struct Lisp_Process *p) 1591 debug_process_finalization (struct Lisp_Process *p)
1591 { 1592 {
1592 #if 0 /* #### */ 1593 #if 0 /* #### */
1593 int i; 1594 Lisp_Object instr, outstr;
1594 int infd, outfd; 1595
1595 get_process_file_descriptors (p, &infd, &outfd); 1596 get_process_streams (p, &instr, &outstr);
1596 /* if it still has fds, then it hasn't been killed yet. */ 1597 /* if it still has fds, then it hasn't been killed yet. */
1597 assert (infd < 0); 1598 assert (NILP(instr));
1598 assert (outfd < 0); 1599 assert (NILP(outstr));
1599 /* Better not still be in the "with input" table; we know it's got no fds. */ 1600
1600 for (i = 0; i < MAXDESC; i++) 1601 /* #### More checks here */
1601 {
1602 Lisp_Object process = filedesc_fds_with_input [i];
1603 assert (!PROCESSP (process) || XPROCESS (process) != p);
1604 }
1605 #endif 1602 #endif
1606 } 1603 }
1604 #endif
1607 1605
1608 /************************************************************************/ 1606 /************************************************************************/
1609 /* initialization */ 1607 /* initialization */
1610 /************************************************************************/ 1608 /************************************************************************/
1611 1609