diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-05-01 01:14:49 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-05-01 01:14:49 +0000 |
| commit | 4197d08b7f37f9c1155559897d750ad1f53af241 (patch) | |
| tree | 02c449e745336e39c131b9b0ccec90ecd790ad42 /chess-pos.el | |
| parent | 0a4f401ba325c52ef9e589cd5c361d2a3a318232 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-pos.el')
| -rw-r--r-- | chess-pos.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/chess-pos.el b/chess-pos.el index bfb0353..1f35b45 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -304,7 +304,8 @@ lowercase to query if black can castle)." (let* ((color (< side ?a)) (long (= ?Q (upcase side))) (file (if long 0 7)) - (king-file (chess-pos-king-index position color)) + (king-file (chess-index-file + (chess-pos-king-index position color))) rook) (while (funcall (if long '< '>) file king-file) (let ((index (chess-rf-to-index (if color 7 0) file))) |