From b0714ff514de8db1c49d48f18b7a8d25e9cf9200 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 8 Apr 2002 08:28:14 +0000 Subject: *** no comment *** --- chess-algebraic.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'chess-algebraic.el') 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) "#")))))) -- cgit v1.2.3