mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

(read_char): Add a call to swallow_events

Browse source 
when deciding whether to redisplay.
(swallow_events): Add forward declaration.
This commit is contained in:
Richard M. Stallman 1997-06-30 08:22:49 +00:00
parent 01db62107e
commit 6e4e64a8e6
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/keyboard.c
View file

@ -482,6 +482,8 @@ 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. */
@ -1787,9 +1789,15 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
goto reread_first;
}
if (commandflag >= 0 && !input_pending
&& !detect_input_pending_run_timers (0))
redisplay ();
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