From 610076a57235eaae8b072893b55d67154b5c1ec4 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 8 Apr 2002 08:23:57 +0000 Subject: *** no comment *** --- chess-ply.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'chess-ply.el') diff --git a/chess-ply.el b/chess-ply.el index 335519d..d70c455 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -144,7 +144,7 @@ maneuver." (unless (memq :promote changes) (if (and (= ?p (downcase (chess-pos-piece next-pos (cadr changes)))) - (= (if color 0 7) + (= (if color 7 0) (chess-index-rank (cadr changes)))) (let ((new-piece (completing-read "Promote pawn to queen/rook/knight/bishop? " -- cgit v1.2.3