From 30692f15986c90f7b776c83e2de142738d6161d6 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 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'chess-sound.el') 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 -- cgit v1.2.3