diff options
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) "#")))))) |