mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-27 01:01:52 -07:00
Code Issues Projects Releases Wiki Activity

* src/keyboard.c (requeued_events_pending_p): Improve name and fix comment

Browse source 
* src/keyboard.c, src/keyboard.h (requeued_events_pending_p): Rename to
'requeued_command_events_pending_p' to clarify that the function covers
only command events. Fix wrong comment that claimed that the function
was unused.
* src/process.c (wait_reading_process_output): Update caller to use the
new name.
This commit is contained in:
Tim Ruffing 2023-12-27 14:29:34 +01:00 • committed by Stefan Monnier
parent fbc5fb2561
commit 385a02cffd
3 changed files with 7 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/keyboard.c
View file

@ -11565,14 +11565,10 @@ clear_input_pending (void)
input_pending = false;
}
/* Return true if there are pending requeued events.
This isn't used yet. The hope is to make wait_reading_process_output
call it, and return if it runs Lisp code that unreads something.
The problem is, kbd_buffer_get_event needs to be fixed to know what
to do in that case. It isn't trivial. */
/* Return true if there are pending requeued command events. */
bool
requeued_events_pending_p (void)
requeued_command_events_pending_p (void)
{
return (CONSP (Vunread_command_events));
}

2
src/keyboard.h
View file

@ -483,7 +483,7 @@ extern void set_poll_suppress_count (int);
extern int gobble_input (void);
extern bool input_polling_used (void);
extern void clear_input_pending (void);
extern bool requeued_events_pending_p (void);
extern bool requeued_command_events_pending_p (void);
extern void bind_polling_period (int);
extern int make_ctrl_char (int) ATTRIBUTE_CONST;
extern void stuff_buffered_input (Lisp_Object);

8
src/process.c
View file

@ -5439,7 +5439,7 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
/* If there is unread keyboard input, also return. */
if (read_kbd != 0
&& requeued_events_pending_p ())
&& requeued_command_events_pending_p ())
break;
/* This is so a breakpoint can be put here. */
@ -5849,7 +5849,7 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
/* If there is unread keyboard input, also return. */
if (read_kbd != 0
&& requeued_events_pending_p ())
&& requeued_command_events_pending_p ())
break;
/* If we are not checking for keyboard input now,
@ -8036,7 +8036,7 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
/* If there is unread keyboard input, also return. */
if (read_kbd != 0
&& requeued_events_pending_p ())
&& requeued_command_events_pending_p ())
break;
if (timespec_valid_p (timer_delay))
@ -8109,7 +8109,7 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
/* If there is unread keyboard input, also return. */
if (read_kbd
&& requeued_events_pending_p ())
&& requeued_command_events_pending_p ())
break;
/* If wait_for_cell. check for keyboard input