From d123dde58b908d0f06a8b07fc99d48fbea1512b2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 15 Apr 2002 03:25:50 +0000 Subject: *** no comment *** --- chess-game.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'chess-game.el') 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." -- cgit v1.2.3