comparison src/keyboard.c @ 18501:37f4c7aeb5a8

(read_char): Add a call to swallow_events when deciding whether to redisplay. (swallow_events): Add forward declaration.

18500:2240a2e37b12

EMACS_TIME timer_check ();

extern char *x_get_keysym_name ();

static void record_menu_key ();

Lisp_Object Qpolling_period;

/* List of absolute timers.  Appears in order of next scheduled event.  */
Lisp_Object Vtimer_list;

      /* This event should make it into this_command_keys, and get echoed
	 again, so we go to reread_first, rather than reread.  */
      goto reread_first;
    }

  if (commandflag >= 0 && !input_pending
      && !detect_input_pending_run_timers (0))
    redisplay ();

  /* Message turns off echoing unless more keystrokes turn it on again. */
  if (echo_area_glyphs && *echo_area_glyphs
      && echo_area_glyphs != current_kboard->echobuf
      && ok_to_echo_at_next_pause != echo_area_glyphs)

18501:37f4c7aeb5a8

EMACS_TIME timer_check ();

extern char *x_get_keysym_name ();

static void record_menu_key ();

void swallow_events ();

Lisp_Object Qpolling_period;

/* List of absolute timers.  Appears in order of next scheduled event.  */
Lisp_Object Vtimer_list;

      /* This event should make it into this_command_keys, and get echoed
	 again, so we go to reread_first, rather than reread.  */
      goto reread_first;
    }

  if (commandflag >= 0)
    {
      if (input_pending
	  || detect_input_pending_run_timers (0))
	swallow_events (0);

      if (!input_pending)
	redisplay ();
    }

  /* Message turns off echoing unless more keystrokes turn it on again. */
  if (echo_area_glyphs && *echo_area_glyphs
      && echo_area_glyphs != current_kboard->echobuf
      && ok_to_echo_at_next_pause != echo_area_glyphs)