diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 08:28:14 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 08:28:14 +0000 |
| commit | b0714ff514de8db1c49d48f18b7a8d25e9cf9200 (patch) | |
| tree | 3aa4090dde9290094afe1e2ccdefeae7fe295680 /chess-ply.el | |
| parent | 610076a57235eaae8b072893b55d67154b5c1ec4 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 7 |
1 files changed, 4 insertions, 3 deletions
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 |