diff options
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index 3207498..ed6f020 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -66,8 +66,7 @@ This regexp handles both long and short form.") (let ((long (= (length (match-string 1 move)) 5))) (if (chess-pos-can-castle position (if long (if color ?Q ?q) (if color ?K ?k))) - (setq ply (chess-ply-create-castle position long) - changes (chess-ply-changes ply)))) + (setq changes (chess-ply-create-castle position long)))) (let ((promotion (match-string 8 move))) (setq changes (let ((source (match-string 4 move)) |