diff options
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/chess-ply.el b/chess-ply.el index 57c2451..adbeeed 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -62,6 +62,15 @@ (defsubst chess-ply-set-changes (ply changes) (setcdr ply changes)) +(defsubst chess-ply-has-keyword (ply keyword) + (memq keyword (chess-ply-changes))) + +(defsubst chess-ply-source (ply) + (car (chess-ply-changes))) + +(defsubst chess-ply-target (ply) + (cadr (chess-ply-changes))) + (defsubst chess-ply-next-pos (ply) (apply 'chess-pos-move (chess-pos-copy (chess-ply-pos ply)) (chess-ply-changes ply))) |