From e4f21502de2a89ecbf38d0a8e6b656df086c8982 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 19 Jun 2002 21:51:14 +0000 Subject: *** no comment *** --- chess-ply.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'chess-ply.el') diff --git a/chess-ply.el b/chess-ply.el index 321da83..4ef3558 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -259,8 +259,10 @@ maneuver." (defsubst chess-ply-final-p (ply) "Return non-nil if this is the last ply of a game/variation." - (chess-ply-any-keyword ply :drawn :perpetual :repetition :stalemate - :flag-fell :resign :checkmate :aborted)) + (or (chess-ply-any-keyword ply :drawn :perpetual :repetition + :flag-fell :resign :aborted) + (chess-ply-any-keyword (chess-pos-preceding-ply + (chess-ply-pos ply)) :stalemate :checkmate))) (eval-when-compile (defvar position) -- cgit v1.2.3