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-game.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index 5ff1d9d..13f88c6 100644 --- a/chess-game.el +++ b/chess-game.el @@ -236,13 +236,9 @@ progress (nil), if it is drawn, resigned, mate, etc." (t (chess-game-run-hooks game 'move current-ply))))) -(defsubst chess-game-resign (game) - "Resign the current game." - (chess-game-move game (list (chess-game-pos game) :resign))) - -(defsubst chess-game-draw (game) - "Draw the current game." - (chess-game-move game (list (chess-game-pos game) :draw))) +(defsubst chess-game-end (game keyword) + "End the current game, by resignation, draw, etc." + (chess-game-move game (list (chess-game-pos game) keyword))) (provide 'chess-game) -- cgit v1.2.3