#include "commands.h"
#include "frame.h"
#include "events.h"
-#include "macros.h"
#include "window.h"
/* Current depth in recursive edits. */
int command_loop_level;
-/* Total number of times command_loop has read a key sequence. */
-int num_input_keys;
-
#ifndef LISP_COMMAND_LOOP
/* Form to evaluate (if non-nil) when Emacs is started. */
Lisp_Object Vtop_level;
stderr_out ("*** Backtrace\n");
Fbacktrace (Qexternal_debugging_output, Qt);
stderr_out ("*** Killing XEmacs\n");
+#ifdef HAVE_MS_WINDOWS
+ Fmswindows_message_box (build_string ("Initialization error"),
+ Qnil, Qnil);
+#endif
return Fkill_emacs (make_int (-1));
}
like the real thing. This is slightly bogus, but it's in here for
compatibility with Emacs 18. It's not even clear what the "right
thing" is. */
- if (!(((STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))
- && XINT (Flength (Vexecuting_macro)) == 1)))
+ if (!((STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))
+ && XINT (Flength (Vexecuting_macro)) == 1))
Vlast_command = Qt;
#ifndef LISP_COMMAND_LOOP
focus is selected. */
if (focus_follows_mouse)
investigate_frame_change ();
-
+
/* Make sure the current window's buffer is selected. */
{
Lisp_Object selected_window = Fselected_window (Qnil);
}
}
+#if 0 /* What's wrong with going through ordinary procedure of quit?
+ quitting here leaves overriding-terminal-local-map
+ when you type C-u C-u C-g. */
/* If ^G was typed before we got here (that is, before emacs was
idle and waiting for input) then we treat that as an interrupt. */
QUIT;
+#endif
/* If minibuffer on and echo area in use, wait 2 sec and redraw
minibuffer. Treat a ^G here as a command, not an interrupt.