From a2f1f41f720c5a78f4c76201da4e7fc9319d9bae Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 1 Sep 2008 00:27:40 -0400 Subject: Except for when making moves interactively (with chess-display-manual-move), it is an error if a ply implies a promotion but not :promote keyword is passed to indication which piece to promote to. --- chess-display.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 27fadbb..a7fa21d 100644 --- a/chess-display.el +++ b/chess-display.el @@ -824,7 +824,8 @@ Basically, it means we are playing, not editing or reviewing." (if (chess-pos-side-to-move (chess-display-position nil)) "White" "Black") (1+ (/ (or chess-display-index 0) 2)))))) - (let ((ply (chess-algebraic-to-ply (chess-display-position nil) move))) + (let ((ply (let ((chess-ply-allow-interactive-query t)) + (chess-algebraic-to-ply (chess-display-position nil) move)))) (unless ply (chess-error 'illegal-notation move)) (chess-display-move nil ply))) -- cgit v1.2.3