diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-15 03:25:50 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-15 03:25:50 +0000 |
| commit | d123dde58b908d0f06a8b07fc99d48fbea1512b2 (patch) | |
| tree | a27bb8aeeeaf4da91e68a6d636b94c4c52429778 /chess-game.el | |
| parent | 7ec02c0ab499c2cebbbe3e8ccd5680501db90b9b (diff) | |
*** no comment ***
Diffstat (limited to 'chess-game.el')
| -rw-r--r-- | chess-game.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/chess-game.el b/chess-game.el index 55b7588..1fcdb8b 100644 --- a/chess-game.el +++ b/chess-game.el @@ -196,6 +196,11 @@ matches." (chess-pgn-to-game pgn)) +(defsubst chess-game-copy-game (game new-game) + (chess-game-set-tags game (chess-game-tags new-game)) + (chess-game-set-plies game (chess-game-plies new-game))) + + (defun chess-game-create (&optional position tags) "Create a new chess game object. Optionally use the given starting POSITION. @@ -237,7 +242,8 @@ progress (nil), if it is drawn, resigned, mate, etc." (chess-game-run-hooks game 'move current-ply)))) (t - (chess-game-run-hooks game 'move current-ply))))) + (chess-game-run-hooks game 'move current-ply))) + (chess-game-run-hooks game 'post-move))) (defsubst chess-game-end (game keyword) "End the current game, by resignation, draw, etc." |