diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-09-05 07:50:41 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-09-05 07:50:41 +0000 |
| commit | 9972297db53252508f6f3bc26c443e5f351ddee5 (patch) | |
| tree | e6c2fd7909ed1595900f9c10a4f419bce8979e54 | |
| parent | bc64537778d52df4e6cc9585c2d91ac4133bf88f (diff) | |
Check chess-sound-program before using it.
| -rw-r--r-- | chess-sound.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/chess-sound.el b/chess-sound.el index b6c9669..cb6c95c 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -57,7 +57,8 @@ (file-readable-p (expand-file-name "move.wav" chess-sound-directory)) (or (eq chess-sound-play-function 'play-sound-file) - (file-executable-p chess-sound-program)))) + (and chess-sound-program + (file-executable-p chess-sound-program))))) ((eq event 'move) (let* ((ply (chess-game-ply game (1- (chess-game-index game)))) |