From eb5e0a5dddb2a4f98efeb5adfeeefef5961e5545 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 10:35:48 +0000 Subject: *** no comment *** --- chess-algebraic.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'chess-algebraic.el') diff --git a/chess-algebraic.el b/chess-algebraic.el index b7038cd..7aebdf3 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -73,7 +73,7 @@ This regexp handles both long and short form.") (setq source (aref source 0))) (let (candidates which) (unless (< piece ?a) - (setq piece ?P)) + (setq source piece piece ?P)) ;; we must use our knowledge of how pieces can ;; move, to determine which piece is meant by the ;; piece indicator -- cgit v1.2.3