diff options
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 9 |
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))))) |