comparison lisp/play/zone.el @ 30628:abcc7a8d4fe4

(zone): Discard any pending input before running the randomly-chosen pgm.

30627:fdfd55b3ff05

      (when ct (modify-frame-parameters f '((cursor-type . (bar . 0)))))
      (condition-case nil
	  (progn
            (message "Zoning... (%s)" pgm)
	    (garbage-collect)
	    (funcall pgm)
	    (message "Zoning...sorry"))
	(error
	 (while (not (input-pending-p))
	   (message (format "We were zoning when we wrote %s..." pgm))

30628:abcc7a8d4fe4

      (when ct (modify-frame-parameters f '((cursor-type . (bar . 0)))))
      (condition-case nil
	  (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
	 (while (not (input-pending-p))
	   (message (format "We were zoning when we wrote %s..." pgm))