diff options
| author | Mario Lang <mlang@delysid.org> | 2004-01-06 02:58:24 +0000 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2004-01-06 02:58:24 +0000 |
| commit | e867c4ebb49cdad7f1fdc6a206dfb8f9410b85de (patch) | |
| tree | 0ecfe97636b436dcd7b1493ea87392f3240cb8eb | |
| parent | f78cc06deac372935f012cd06feb63bcef04e75a (diff) | |
some docstrings
| -rw-r--r-- | chess-ply.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/chess-ply.el b/chess-ply.el index 8d04dbf..19c5c45 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -51,10 +51,12 @@ :group 'chess) (defsubst chess-ply-pos (ply) + "Returns the base position associated with PLY." (assert (listp ply)) (car ply)) (defsubst chess-ply-set-pos (ply position) + "Set the base position of PLY." (assert (listp ply)) (assert (vectorp position)) (setcar ply position)) @@ -98,12 +100,14 @@ value)) (defsubst chess-ply-source (ply) + "Returns the source square index value of PLY." (assert (listp ply)) (let ((changes (chess-ply-changes ply))) (and (listp changes) (not (symbolp (car changes))) (car changes)))) (defsubst chess-ply-target (ply) + "Returns the target square index value of PLY." (assert (listp ply)) (let ((changes (chess-ply-changes ply))) (and (listp changes) (not (symbolp (car changes))) |