From e867c4ebb49cdad7f1fdc6a206dfb8f9410b85de Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Tue, 6 Jan 2004 02:58:24 +0000 Subject: some docstrings --- chess-ply.el | 4 ++++ 1 file changed, 4 insertions(+) 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))) -- cgit v1.2.3