From de037adf033425192efefb66f098037766c6932e Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 09:07:01 +0000 Subject: *** no comment *** --- chess-algebraic.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'chess-algebraic.el') 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)) -- cgit v1.2.3