diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-11 19:53:31 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-11 19:53:31 +0000 |
| commit | 38218bacfddbb32ee96c850b9a7d7477ff088e87 (patch) | |
| tree | e8fa9bd75235fd55b27e7756719512de9f7bc952 /chess-display.el | |
| parent | 7e2df426c16e6b928cc3730f569e9d3e2cd02e2a (diff) | |
*** no comment ***
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 17 |
1 files changed, 13 insertions, 4 deletions
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))) |