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-announce.el | |
| parent | f996624fccdf03feb2a914f193659e99095f858d (diff) | |
*** no comment ***
Diffstat (limited to 'chess-announce.el')
| -rw-r--r-- | chess-announce.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-announce.el b/chess-announce.el index 98bf2e2..e4031b8 100644 --- a/chess-announce.el +++ b/chess-announce.el @@ -60,8 +60,8 @@ shutdown the announcer process, if necessary.") (chess-pos-side-to-move pos)) (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) (if which @@ -71,7 +71,7 @@ shutdown the announcer process, if necessary.") (setq text (chess-string 'short-castle))) ((chess-ply-keyword ply :long-castle) (setq text (chess-string 'long-castle))) - ((= t-piece ? ) + ((and s-piece t-piece (= t-piece ? ) target) (setq text (concat which (chess-string 'piece-moves @@ -79,7 +79,7 @@ shutdown the announcer process, if necessary.") (cdr (assq (downcase s-piece) chess-announce-names))) (chess-index-to-coord target))))) - (t + ((and s-piece t-piece target) (setq text (concat which (chess-string 'piece-takes |