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-game.el | |
| parent | 7e2df426c16e6b928cc3730f569e9d3e2cd02e2a (diff) | |
*** no comment ***
Diffstat (limited to 'chess-game.el')
| -rw-r--r-- | chess-game.el | 10 |
1 files changed, 3 insertions, 7 deletions
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) |