diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-06-19 21:51:14 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-06-19 21:51:14 +0000 |
| commit | e4f21502de2a89ecbf38d0a8e6b656df086c8982 (patch) | |
| tree | 3309b9024f27c94d59b297de026079619ba257b0 /chess-ply.el | |
| parent | 3e63522ab6fc8476c673b1acd9be41838ee5d5d6 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 6 |
1 files changed, 4 insertions, 2 deletions
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) |