diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 11:09:04 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 11:09:04 +0000 |
| commit | a63c0563b8857186ec3d7efe9ce5fa1add332647 (patch) | |
| tree | b80a4e5741e04acd86980c41f86f1743882e20e8 /chess-sound.el | |
| parent | 30692f15986c90f7b776c83e2de142738d6161d6 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-sound.el')
| -rw-r--r-- | chess-sound.el | 6 |
1 files changed, 2 insertions, 4 deletions
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) |