diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:56:54 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:56:54 +0000 |
| commit | da58e86d8e2d128f0b2519b08593d79da83d0c73 (patch) | |
| tree | 8a8025b09f8324a07fe1261d029d777d377b97c3 /chess-sound.el | |
| parent | f996624fccdf03feb2a914f193659e99095f858d (diff) | |
*** no comment ***
Diffstat (limited to 'chess-sound.el')
| -rw-r--r-- | chess-sound.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-sound.el b/chess-sound.el index 9713ec8..4a34121 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -68,8 +68,8 @@ (chess-sound "move")) (let* ((source (chess-ply-source ply)) (target (chess-ply-target ply)) - (s-piece (chess-pos-piece pos source)) - (t-piece (chess-pos-piece pos target)) + (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) (cond @@ -77,12 +77,12 @@ (chess-sound "O-O")) ((chess-ply-keyword ply :long-castle) (chess-sound "O-O-O")) - ((= t-piece ? ) + ((and s-piece t-piece (= t-piece ? ) target) (if which (chess-sound (char-to-string which))) (chess-sound (format "%c_" (downcase s-piece))) (chess-sound (chess-index-to-coord target))) - (t + ((and s-piece t-piece target) (if which (chess-sound (char-to-string which))) (chess-sound (format "%c_" (downcase s-piece))) |