(zone): Discard any pending input before running

the randomly-chosen pgm.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 6f2340d0485..f0c5ded1b1d 100644
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -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