From d3bd3c6f07e0c9a2a7a1488e43b47439a5f8ac54 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Wed, 4 Jun 2014 22:43:13 +0200 Subject: Sync from ELPA. --- chess-sound.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'chess-sound.el') 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 ;; Maintainer: Mario Lang @@ -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")) -- cgit v1.2.3