From b6f3fae4d6f47c4098c31059a93dc6cd23cc2c74 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 26 Apr 2002 08:31:16 +0000
Subject: bug fixes

---
 chess-game.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'chess-game.el')

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
-- 
cgit v1.2.3