diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 05:47:20 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 05:47:20 +0000 |
| commit | 54d66578bec3e22b42a5bc33198119968120fd35 (patch) | |
| tree | 57a7544705451271c43570486a67be9afff6f8ea /chess-algebraic.el | |
| parent | 55992a578859ee70b025df5d3f2cbd4ec6f94d4c (diff) | |
added castling keywords
Diffstat (limited to 'chess-algebraic.el')
| -rw-r--r-- | chess-algebraic.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/chess-algebraic.el b/chess-algebraic.el index 09f8b30..737a4d0 100644 --- a/chess-algebraic.el +++ b/chess-algebraic.el @@ -116,12 +116,8 @@ If LONG is non-nil, render the move into long notation." (color (chess-pos-side-to-move pos)) str (notation (if (setq str - (and (= (upcase from-piece) ?K) - (= from (chess-rf-to-index (if color 7 0) 4)) - (if (= to (chess-rf-to-index (if color 7 0) 6)) - "O-O" - (if (= to (chess-rf-to-index (if color 7 0) 2)) - "O-O-O")))) + (if (memq :castle changes) "O-O" + (if (memq :long-castle changes) "O-O-O"))) str (let ((candidates (chess-search-position pos to from-piece)) (rank 0) (file 0) |