diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 09:07:01 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 09:07:01 +0000 |
| commit | de037adf033425192efefb66f098037766c6932e (patch) | |
| tree | e8414ef3ac94a986ed93e9497da2f7354662f4e7 /chess-algebraic.el | |
| parent | e66b028def9af45cc545c973255df42c9b90cde1 (diff) | |
*** no comment ***
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)) |