diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 08:28:14 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 08:28:14 +0000 |
| commit | b0714ff514de8db1c49d48f18b7a8d25e9cf9200 (patch) | |
| tree | 3aa4090dde9290094afe1e2ccdefeae7fe295680 /chess-algebraic.el | |
| parent | 610076a57235eaae8b072893b55d67154b5c1ec4 (diff) | |
*** no comment ***
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) "#")))))) |