summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-24 18:27:32 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-24 18:27:32 +0000
commitd350ae5665b73e31322a44abce595fde68f33106 (patch)
treef11ee4146bb722a0aa9d6fc8212adecdcc19fcd6
parent92bddf357e407ad14857fcd36c9bba4c24c37b55 (diff)
deactive a game when it is drawn
-rw-r--r--chess-common.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/chess-common.el b/chess-common.el
index 167ee4d..c6ed7d8 100644
--- a/chess-common.el
+++ b/chess-common.el
@@ -60,6 +60,9 @@
((eq event 'draw)
(chess-message 'draw-offer-declined))
+ ((eq event 'drawn)
+ (chess-game-set-data game 'active nil))
+
((memq event '(resign abort))
(chess-engine-send nil "new\n")
(chess-engine-set-position nil))