diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-07 09:35:05 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-07 09:35:05 +0000 |
| commit | 1198bebb0e77e0a6e687f1bc01ad0bc868cedf68 (patch) | |
| tree | e961609dc961816392fd924a6647a72e3d0791b9 /chess-pgn.el | |
| parent | 7ef0297f2478f3fc4e7d684706806e30b6109c22 (diff) | |
Games are now playable to the end.
Diffstat (limited to 'chess-pgn.el')
| -rw-r--r-- | chess-pgn.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/chess-pgn.el b/chess-pgn.el index 04a8575..db13793 100644 --- a/chess-pgn.el +++ b/chess-pgn.el @@ -79,18 +79,20 @@ "NYI: Still have to implement INDENTED argument." (while plies (unless for-black - (insert (format "%d. %s" index - (chess-game-ply-to-algebraic game (car plies)))) - (unless no-annotations - (chess-pgn-insert-annotations game index (car plies))) + (when (chess-ply-changes (car plies)) + (insert (format "%d. %s" index + (chess-game-ply-to-algebraic game (car plies)))) + (unless no-annotations + (chess-pgn-insert-annotations game index (car plies)))) (setq plies (cdr plies) index (1+ index))) (when plies - (when for-black - (insert (format "%d. ..." index)) - (setq for-black nil)) - (insert (format " %s" (chess-game-ply-to-algebraic game (car plies)))) - (unless no-annotations - (chess-pgn-insert-annotations game index (car plies))) + (when (chess-ply-changes (car plies)) + (when for-black + (insert (format "%d. ..." index)) + (setq for-black nil)) + (insert (format " %s" (chess-game-ply-to-algebraic game (car plies)))) + (unless no-annotations + (chess-pgn-insert-annotations game index (car plies)))) (setq plies (cdr plies))) (if plies (insert ? )))) |