From da58e86d8e2d128f0b2519b08593d79da83d0c73 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 24 Apr 2002 19:56:54 +0000 Subject: *** no comment *** --- chess-announce.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'chess-announce.el') 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 -- cgit v1.2.3