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 | 30692f15986c90f7b776c83e2de142738d6161d6 (patch) | |
| tree | 18c7796f3cdcd99d757eed75af8ff3f692ad60d8 /chess-sound.el | |
| parent | ee6f32e0f33a42f09aca27d00d57c22f35192c76 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-sound.el')
| -rw-r--r-- | chess-sound.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/chess-sound.el b/chess-sound.el index 666be6c..6c31a9d 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -46,7 +46,7 @@ (defun chess-sound-for-game (game) "Announce the opponent's moves in GAME." - (chess-game-add-hook game 'chess-sound-event-handler)) + (chess-game-add-hook game 'chess-sound-handler)) (defun chess-sound (ch) (let ((file @@ -61,9 +61,10 @@ (expand-file-name file chess-sound-directory)))) (defun chess-sound-play (file) - (apply 'call-process chess-sound-program nil nil nil chess-sound-args)) + (apply 'call-process chess-sound-program + nil nil nil (append chess-sound-args (list file)))) -(defun chess-sound-event-handler (game ignore event &rest args) +(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 |