diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-09-01 00:27:40 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-09-01 00:27:40 -0400 |
| commit | a2f1f41f720c5a78f4c76201da4e7fc9319d9bae (patch) | |
| tree | f6fd8342526fb6e0f53415cf6b91516cacb32702 /chess-display.el | |
| parent | c2058126f0bf3f44eb40fb462ce10842d60573a1 (diff) | |
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.
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |