diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-22 19:23:45 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-22 19:23:45 +0000 |
| commit | 62c13bcfa1933274be856ac5840a933bbaca5f27 (patch) | |
| tree | 81e2d4ab1a749a4d2561e824708abd60a04d67d0 /chess-ply.el | |
| parent | 171cc1aceb0e9acafe329ff6cd0ca1e2852876ce (diff) | |
Bug fixes and reducing the TODO list.
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/chess-ply.el b/chess-ply.el index 1bfbfcf..750e8b2 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -44,6 +44,7 @@ ;;; Code: (require 'chess-pos) +(require 'chess-algebraic) (defgroup chess-ply nil "Routines for manipulating chess plies." @@ -98,6 +99,12 @@ (apply 'chess-pos-move (chess-pos-copy (chess-ply-pos ply)) (chess-ply-changes ply))) +(defsubst chess-ply-to-string (ply &optional long) + (chess-ply-to-algebraic ply long)) + +(defsubst chess-ply-from-string (position move) + (chess-algebraic-to-ply position move)) + (defconst chess-piece-name-table '(("queen" . ?q) ("rook" . ?r) |