Commit b1878f45 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(requeued_events_pending_p): New function.

parent 33d79bad
......@@ -7081,8 +7081,7 @@ detect_input_pending ()
return input_pending;
}
/* Return nonzero if input events are pending.
Execute timers immediately; don't make events for them. */
/* Return nonzero if input events are pending, and run any pending timers. */
detect_input_pending_run_timers (do_display)
int do_display;
......@@ -7106,6 +7105,18 @@ clear_input_pending ()
input_pending = 0;
}
/* Return nonzero if there are pending requeued events.
This isn't used yet. The hope is to make wait_reading_process_input
call it, and return 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. */
requeued_events_pending_p ()
{
return (!NILP (Vunread_command_events) || unread_command_char != -1);
}
DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0,
"T if command input is currently available with no waiting.\n\
Actually, the value is nil only if we can be sure that no input is available.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment