From 3d3bbb7d7de849b139e612ad069a530c8ef9c342 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 07:45:36 +0000 Subject: Announce pawn promotions --- chess-sound.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'chess-sound.el') diff --git a/chess-sound.el b/chess-sound.el index 4a34121..b6c9669 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -90,6 +90,10 @@ (chess-sound (format "%c_" (downcase t-piece))) (chess-sound (chess-index-to-coord target)))) + (if (chess-ply-keyword ply :promote) + (chess-sound + (format "%c_" (downcase + (chess-ply-keyword ply :promote))))) (if (chess-ply-keyword ply :en-passant) (chess-sound "enpassant")) (if (chess-ply-keyword ply :check) -- cgit v1.2.3