miscellaneous fixes

1 files changed, 6 insertions, 3 deletions

diff --git a/chess-ply.el b/chess-ply.el
index a016e2e..321da83 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -154,7 +154,7 @@
 		(if long :long-castle :castle))))))
 
 (chess-message-catalog 'english
-  '((pawn-promote-query . "Promote pawn to queen/rook/knight/bishop? ")))
+  '((pawn-promote-query . "Promote to queen? ")))
 
 (defvar chess-ply-checking-mate nil)
 
@@ -209,8 +209,11 @@ maneuver."
 	    ;; promote it to
 	    (when (and (not (memq :promote changes))
 		       (= (if color 0 7) (chess-index-rank (cadr changes))))
-	      (discard-input)
-	      (let ((new-piece (if (yes-or-no-p "Promote to queen? ")
+	      ;; jww (2002-05-15): This does not always clear ALL
+	      ;; input events
+	      (discard-input) (sit-for 0) (discard-input)
+	      (let ((new-piece (if (yes-or-no-p
+				    (chess-string 'pawn-promote-query))
 				   ?Q ?N)))
 		(nconc changes (list :promote (upcase new-piece)))))