diff options
| author | Mario Lang <mlang@delysid.org> | 2014-06-04 22:43:13 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-06-04 22:43:13 +0200 |
| commit | d3bd3c6f07e0c9a2a7a1488e43b47439a5f8ac54 (patch) | |
| tree | 6880ccc0d0694bd1af272c90108d68d95b58791e /chess-sound.el | |
| parent | 4f6e6e7cac21f21586b221e2a65e657a4c2a7213 (diff) | |
Sync from ELPA.
Diffstat (limited to 'chess-sound.el')
| -rw-r--r-- | chess-sound.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/chess-sound.el b/chess-sound.el index de353c6..8397c79 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -1,6 +1,6 @@ ;;; chess-sound.el --- Announce chess moves with pre-recorded sound files -;; Copyright (C) 2002, 2008 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2008, 2014 Free Software Foundation, Inc. ;; Author: John Wiegley <johnw@gnu.org> ;; Maintainer: Mario Lang <mlang@delysid.org> @@ -73,7 +73,7 @@ (apply 'call-process chess-sound-program nil nil nil (append chess-sound-args (list file)))) -(defun chess-sound-handler (game event &rest args) +(defun chess-sound-handler (game event &rest _args) (cond ((eq event 'initialize) (and (file-directory-p chess-sound-directory) @@ -94,8 +94,7 @@ (target (chess-ply-target ply)) (s-piece (and source (chess-pos-piece pos source))) (t-piece (and target (chess-pos-piece pos target))) - (which (chess-ply-keyword ply :which)) - text) + (which (chess-ply-keyword ply :which))) (cond ((chess-ply-keyword ply :castle) (chess-sound "O-O")) |