diff src/cmdloop.c @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 501cfd01ee6d
children 11054d720c21
line wrap: on
line diff
--- a/src/cmdloop.c	Mon Aug 13 11:19:22 2007 +0200
+++ b/src/cmdloop.c	Mon Aug 13 11:20:41 2007 +0200
@@ -40,6 +40,9 @@
 /* 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;
@@ -121,10 +124,6 @@
   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));
 }
 
@@ -522,8 +521,8 @@
      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
@@ -537,7 +536,7 @@
          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);