From 59d1008283f339d6c6d146979c4cff0c6430b095 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 16 May 2002 17:28:18 +0000 Subject: miscellaneous fixes --- chess-ply.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'chess-ply.el') 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))))) -- cgit v1.2.3