*** no comment ***

1 files changed, 10 insertions, 10 deletions

diff --git a/chess-announce.el b/chess-announce.el
index ff1a331..ca563e0 100644
--- a/chess-announce.el
+++ b/chess-announce.el
@@ -44,24 +44,24 @@ The first is called one start of the announcer.  The second is called
 with the string to announce each time.  The third is called to
 shutdown the announcer process, if necessary.")
 
-(defun chess-announce-available-p () t)
-
-(defun chess-announce-for-game (game)
-  "Announce the opponent's moves in GAME."
-  (funcall (nth 0 chess-announce-functions))
-  (chess-game-add-hook game 'chess-announce-handler))
-
-(defun chess-announce-handler (game ignore event &rest args)
+(defun chess-announce-handler (event &rest args)
   "This display module presents a standard chessboard.
 See `chess-display-type' for the different kinds of displays."
   (cond
+   ((eq event 'initialize)
+    (kill-buffer (current-buffer))
+    (set-buffer (generate-new-buffer " *chess-announce*"))
+    (funcall (nth 0 chess-announce-functions))
+    t)
+
    ((eq event 'shutdown)
     (funcall (nth 2 chess-announce-functions)))
 
    ((eq event 'move)
-    (let* ((ply (chess-game-ply game (1- (chess-game-index game))))
+    (let* ((ply (chess-game-ply chess-display-game
+				(1- (chess-game-index chess-display-game))))
 	   (pos (chess-ply-pos ply)))
-      (unless (eq (chess-game-data game 'my-color)
+      (unless (eq (chess-game-data chess-display-game 'my-color)
 		  (chess-pos-side-to-move pos))
 	(let* ((source (chess-ply-source ply))
 	       (target (chess-ply-target ply))