Try to improve the promotion situation on ICS by allowing chess-ply to query for...

[gnu-emacs-elpa] / chess-sound.el

diff --git a/chess-sound.el b/chess-sound.el
index b6c9669c4c9bd14139a7a68a0f9044e6009f53d8..ed1ce532d5e51984c5fb988b74305ea5022a3e69 100644 (file)
--- a/chess-sound.el
+++ b/chess-sound.el
@@ -42,9 +42,10 @@
   :group 'chess-sound)
 
 (defsubst chess-sound (file)
-  (funcall chess-sound-play-function
-          (expand-file-name (concat file ".wav")
-                            chess-sound-directory)))
+  (ignore-errors
+    (funcall chess-sound-play-function
+            (expand-file-name (concat file ".wav")
+                              chess-sound-directory))))
 
 (defsubst chess-sound-play (file)
   (apply 'call-process chess-sound-program
@@ -57,7 +58,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))))