diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-26 08:31:16 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-26 08:31:16 +0000 |
| commit | b6f3fae4d6f47c4098c31059a93dc6cd23cc2c74 (patch) | |
| tree | 48bdea1837d93c049800713911bcda9ff24a70ca /chess-algebraic.el | |
| parent | 6fe3209092928da896f2f5aa7e8bc648efc2e47c (diff) | |
bug fixes
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 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) "#")))))) |