diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-09-01 02:43:58 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-09-01 02:43:58 +0000 |
commit | b68c0b98b74f5667625b79226d31b53c64dac8c2 (patch) | |
tree | 40e8ba7d9037532d9c60e1738d85ed4c871e9d8c /src/keyboard.c | |
parent | 68f08f3616e8be38a25f252b861afce1d64495c0 (diff) | |
download | emacs-b68c0b98b74f5667625b79226d31b53c64dac8c2.tar.gz |
(requeued_events_pending_p): New function.
Diffstat (limited to 'src/keyboard.c')
-rw-r--r-- | src/keyboard.c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index d6b30202d45..9affa6df2a1 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -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.") |