diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-05-01 07:45:36 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-05-01 07:45:36 +0000 |
| commit | 3d3bbb7d7de849b139e612ad069a530c8ef9c342 (patch) | |
| tree | 73ddb051dd9b0f1f5bdc524ed243d6d903d6d97c /chess-sound.el | |
| parent | b605ecc7086e872fb57d340427e603674cb5a4b3 (diff) | |
Announce pawn promotions
Diffstat (limited to 'chess-sound.el')
| -rw-r--r-- | chess-sound.el | 4 |
1 files changed, 4 insertions, 0 deletions
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) |