If the event is already existing/pending, I don't think you need to deal with timeouts at all?
(let ((unread-command-events '(42)))
(read-event))
=> 42
phils
- 53.1k
- 3
- 84
- 127