Commit f244674c authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(zone): Discard any pending input before running

the randomly-chosen pgm.
parent 84968b32
......@@ -107,6 +107,12 @@
(progn
(message "Zoning... (%s)" pgm)
(garbage-collect)
;; If some input is pending, zone says "sorry", which
;; isn't nice; this might happen e.g. when they invoke the
;; game by clicking the menu bar. So discard any pending
;; input before zoning out.
(if (input-pending-p)
(discard-input))
(funcall pgm)
(message "Zoning...sorry"))
(error
......
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