Mercurial > emacs
changeset 16017:96edeb283515
(requeued_events_pending_p): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 Sep 1996 02:43:58 +0000 |
| parents | 2ee7579db4a9 |
| children | 9a12ac7707c9 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 13 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Sun Sep 01 02:42:04 1996 +0000 +++ b/src/keyboard.c Sun Sep 01 02:43:58 1996 +0000 @@ -7081,8 +7081,7 @@ 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 @@ 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.")