diff options
| -rw-r--r-- | TODO | 3 | ||||
| -rw-r--r-- | chess-algebraic.el | 2 | ||||
| -rw-r--r-- | chess-display.el | 3 |
3 files changed, 6 insertions, 2 deletions
@@ -24,6 +24,9 @@ configuration! ---------------------------------------------------------------------- +- undoing a single move (my move) and moving again, causes + chess-algebraic to get a little screwed up + - the game should go inactive once I lose by stalemate/checkmate - detect draw/resign/abort/retract, etc., from ICS and common engines diff --git a/chess-algebraic.el b/chess-algebraic.el index 7a430fc..1c0c1c8 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -109,7 +109,7 @@ This regexp handles both long and short form.") (if (null which) (chess-error could-not-clarify) (list which target)))) - (chess-error no-candidates move)))))) + (chess-error 'no-candidates move)))))) (if promotion (nconc changes (list :promote (aref promotion 0)))))) diff --git a/chess-display.el b/chess-display.el index 58a2e0c..266b2d1 100644 --- a/chess-display.el +++ b/chess-display.el @@ -903,7 +903,8 @@ to the end or beginning." (eq position chess-legal-moves-pos) (or (> (length chess-move-string) 1) (eq (car chess-legal-moves) last-command-char))) - (setq char last-command-char + (setq char (if (eq (downcase last-command-char) ?o) ?k + last-command-char) chess-legal-moves-pos position chess-legal-moves (cons char |