From 38218bacfddbb32ee96c850b9a7d7477ff088e87 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 11 Apr 2002 19:53:31 +0000 Subject: *** no comment *** --- chess-display.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 4cbd98c..ee8c165 100644 --- a/chess-display.el +++ b/chess-display.el @@ -529,9 +529,18 @@ The key bindings available in this mode are: (if ply (setq chess-display-mode-line (concat - (if (chess-ply-final-p ply) - " FINISHED" - (concat " " (if color "White" "Black"))) + (let ((final (chess-ply-final-p ply))) + (cond + ((eq final :checkmate) + " CHECKMATE") + ((eq final :resign) + " RESIGNED") + ((eq final :stalemate) + " STALEMATE") + ((eq final :draw) + " DRAWN") + (t + (concat " " (if color "White" "Black"))))) (if index (concat " " (int-to-string (if (> index 1) @@ -669,7 +678,7 @@ Basically, it means we are playing, not editing or reviewing." (interactive) (if (chess-display-active-p) (progn - (chess-game-resign (chess-display-game nil)) + (chess-game-end (chess-display-game nil) :resign) (chess-game-run-hooks chess-display-game 'resign)) (ding))) -- cgit v1.2.3