Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8d2a9b52c682
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
1976 struct console *con = XCONSOLE (Vselected_console); 1976 struct console *con = XCONSOLE (Vselected_console);
1977 struct command_builder *command_builder = 1977 struct command_builder *command_builder =
1978 XCOMMAND_BUILDER (con->command_builder); 1978 XCOMMAND_BUILDER (con->command_builder);
1979 int store_this_key = 0; 1979 int store_this_key = 0;
1980 struct gcpro gcpro1; 1980 struct gcpro gcpro1;
1981 #ifdef LWLIB_MENUBARS_LUCID
1982 extern int in_menu_callback; /* defined in menubar-x.c */
1983 #endif /* LWLIB_MENUBARS_LUCID */
1984
1981 GCPRO1 (event); 1985 GCPRO1 (event);
1982
1983 /* DO NOT do QUIT anywhere within this function or the functions it calls. 1986 /* DO NOT do QUIT anywhere within this function or the functions it calls.
1984 We want to read the ^G as an event. */ 1987 We want to read the ^G as an event. */
1988
1989 #ifdef LWLIB_MENUBARS_LUCID
1990 /*
1991 * #### Fix the menu code so this isn't necessary.
1992 *
1993 * We cannot allow the lwmenu code to be reentered, because the
1994 * code is not written to be reentrant and will crash. Therefore
1995 * paths from the menu callbacks back into the menu code have to
1996 * be blocked. Fnext_event is the normal path into the menu code,
1997 * so we signal an error here.
1998 */
1999 if (in_menu_callback)
2000 error ("Attempt to call next-event inside menu callback");
2001 #endif /* LWLIB_MENUBARS_LUCID */
1985 2002
1986 if (NILP (event)) 2003 if (NILP (event))
1987 event = Fmake_event (); 2004 event = Fmake_event ();
1988 else 2005 else
1989 CHECK_LIVE_EVENT (event); 2006 CHECK_LIVE_EVENT (event);