diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 05:47:20 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 05:47:20 +0000 |
| commit | 54d66578bec3e22b42a5bc33198119968120fd35 (patch) | |
| tree | 57a7544705451271c43570486a67be9afff6f8ea /chess-ply.el | |
| parent | 55992a578859ee70b025df5d3f2cbd4ec6f94d4c (diff) | |
added castling keywords
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-ply.el b/chess-ply.el index 01208ea..335519d 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -100,9 +100,11 @@ maneuver." ;; if so, add the rook moves (nconc changes (if kingside (list (chess-rf-to-index (if color 7 0) 7) - (chess-rf-to-index (if color 7 0) 5)) + (chess-rf-to-index (if color 7 0) 5) + :castle) (list (chess-rf-to-index (if color 7 0) 0) - (chess-rf-to-index (if color 7 0) 3))))))) + (chess-rf-to-index (if color 7 0) 3) + :long-castle)))))) (let* ((next-pos (chess-ply-next-pos ply)) (color (chess-pos-side-to-move next-pos))) |