diff options
Diffstat (limited to 'chess-game.el')
| -rw-r--r-- | chess-game.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-game.el b/chess-game.el index e5c93b7..970274e 100644 --- a/chess-game.el +++ b/chess-game.el @@ -250,8 +250,10 @@ progress (nil), if it is drawn, resigned, mate, etc." (assert changes) (chess-ply-set-changes current-ply changes) - (chess-game-add-ply game (chess-ply-create* - (chess-ply-next-pos current-ply))) + (unless (chess-ply-any-keyword ply :draw :perpetual :repetition + :resign) + (chess-game-add-ply game (chess-ply-create* + (chess-ply-next-pos current-ply)))) (let ((long (> (length changes) 2))) (cond |