From 1198bebb0e77e0a6e687f1bc01ad0bc868cedf68 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Sun, 7 Apr 2002 09:35:05 +0000
Subject: Games are now playable to the end.

---
 chess-display.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'chess-display.el')

diff --git a/chess-display.el b/chess-display.el
index e8fc67d..7b83e67 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -404,7 +404,9 @@ The key bindings available in this mode are:
       (if ply
 	  (setq chess-display-mode-line
 		(concat
-		 "  " (if color "White" "BLACK")
+		 (if (chess-ply-final-p ply)
+		     "  FINISHED"
+		   (concat "  " (if color "White" "BLACK")))
 		 (if index
 		     (concat "   " (int-to-string
 				    (if (> index 1)
-- 
cgit v1.2.3