From a63c0563b8857186ec3d7efe9ce5fa1add332647 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 11:09:04 +0000 Subject: *** no comment *** --- chess-sound.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'chess-sound.el') diff --git a/chess-sound.el b/chess-sound.el index 6c31a9d..61cfa83 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -67,8 +67,7 @@ (defun chess-sound-handler (game ignore event &rest args) "This display module presents a standard chessboard. See `chess-display-type' for the different kinds of displays." - (cond - ((eq event 'move) + (when (eq event 'move) (let* ((ply (chess-game-ply game (1- (chess-game-index game)))) (pos (chess-ply-pos ply))) (if (eq (chess-game-data game 'my-color) @@ -97,8 +96,7 @@ See `chess-display-type' for the different kinds of displays." (if (chess-ply-has-keyword :checkmate) (chess-sound ?#)) (if (chess-ply-has-keyword :stalemate) - (chess-sound "smate"))))) - nil))) + (chess-sound "smate"))))))) (provide 'chess-sound) -- cgit v1.2.3