diff options
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index 737a4d0..b7038cd 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -152,7 +152,8 @@ If LONG is non-nil, render the move into long notation." (chess-index-to-coord to) (let ((promote (memq :promote changes))) (if promote - (concat "=" (char-to-string (cadr promote)))))))))) + (concat "=" (char-to-string + (upcase (cadr promote))))))))))) (concat notation (if (memq :check changes) "+" (if (memq :checkmate changes) "#")))))) |