From b0714ff514de8db1c49d48f18b7a8d25e9cf9200 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 8 Apr 2002 08:28:14 +0000 Subject: *** no comment *** --- chess-ply.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'chess-ply.el') diff --git a/chess-ply.el b/chess-ply.el index d70c455..57c2451 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -140,7 +140,8 @@ maneuver." ;; is this a pawn move to the ultimate rank? if so, and we ;; haven't already been told, ask for the piece to promote - ;; it to + ;; it to; NOTE: 'color' has the inverse meaning at this + ;; point... (unless (memq :promote changes) (if (and (= ?p (downcase (chess-pos-piece next-pos (cadr changes)))) @@ -151,8 +152,8 @@ maneuver." chess-piece-name-table nil t "queen"))) (setq new-piece (cdr (assoc new-piece chess-piece-name-table))) - (if color - (setq new-piece (upcase new-piece))) + (unless color + (setq new-piece (upcase new-piece))) (nconc changes (list :promote new-piece)))))) ;; return the annotated ply -- cgit v1.2.3