From b6f3fae4d6f47c4098c31059a93dc6cd23cc2c74 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 26 Apr 2002 08:31:16 +0000 Subject: bug fixes --- 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 95b5bc6..0ae8016 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -165,8 +165,7 @@ This regexp handles both long and short form.") (chess-index-to-coord to) (let ((promote (chess-ply-keyword ply :promote))) (if promote - (concat "=" (char-to-string - (upcase (cadr promote)))))) + (concat "=" (char-to-string promote)))) (if (chess-ply-keyword ply :check) "+" (if (chess-ply-keyword ply :checkmate) "#")))))) -- cgit v1.2.3