From 62425d4d94f95572c985005c33d93fe9ae420ac9 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 8 Apr 2002 06:42:12 +0000
Subject: Added support for playing out puzzle collections.

---
 chess-pgn.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'chess-pgn.el')

diff --git a/chess-pgn.el b/chess-pgn.el
index ae0adc3..930edc5 100644
--- a/chess-pgn.el
+++ b/chess-pgn.el
@@ -64,10 +64,11 @@
 	(goto-char (match-end 0)))
       (let ((fen (chess-game-tag game "FEN")))
 	(chess-game-set-plies
-	 game (chess-pgn-read-plies
-	       game (if fen
-			(chess-fen-to-pos fen)
-		      (chess-pos-copy chess-starting-position)) t)))
+	 game (or (chess-pgn-read-plies
+		   game (if fen
+			    (chess-fen-to-pos fen)
+			  (chess-pos-copy chess-starting-position)) t)
+		  (list (chess-ply-create (chess-fen-to-pos fen))))))
       game)))
 
 (defun chess-pgn-insert-annotations (game index ply)
-- 
cgit v1.2.3