diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-26 08:31:16 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-26 08:31:16 +0000 |
| commit | b6f3fae4d6f47c4098c31059a93dc6cd23cc2c74 (patch) | |
| tree | 48bdea1837d93c049800713911bcda9ff24a70ca /chess-game.el | |
| parent | 6fe3209092928da896f2f5aa7e8bc648efc2e47c (diff) | |
bug fixes
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 |