From 11b367ebafee85881a10cc01c287a0b78bfba1ea Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Thu, 18 Apr 2002 19:36:20 +0000
Subject: *** no comment ***

---
 TODO          | 9 +++++++++
 chess-game.el | 4 +++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/TODO b/TODO
index 7c5c1bb..15ee2ae 100644
--- a/TODO
+++ b/TODO
@@ -12,6 +12,15 @@
 
 			       Hotlist
 
+- Move chess-assert-can-move into chess-display-move
+
+- Allow an "index N" command to the network protocol, so two people
+  can review a game together
+
+- Make ( create variations in a display, and { begin an annotation
+
+- Make chess-display-create use require, not chess.el
+
 - Polish chess-input.el
 
 - Find a way that regexp-alist entries that only need to fire once are
diff --git a/chess-game.el b/chess-game.el
index b28d7f9..b1b1ccf 100644
--- a/chess-game.el
+++ b/chess-game.el
@@ -158,7 +158,9 @@ This conveys the status of the game at the given index."
   "Return the current GAME sequence."
   (let ((index (chess-game-index game)))
     (if (> index 1)
-	(1+ (/ index 2))
+	(if (= (mod index 2) 0)
+	    (/ index 2)
+	  (1+ (/ index 2)))
       1)))
 
 (defsubst chess-game-side-to-move (game)
-- 
cgit v1.2.3