(chess-ply-set-keyword): Added a new function for setting a ply's

keyword, with an optional value (must be non-nil for setting with a
value to occur).

1 files changed, 10 insertions, 0 deletions

diff --git a/chess-ply.el b/chess-ply.el
index e5eb626..1d42f53 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -74,6 +74,16 @@
 	    t
 	  (cadr item)))))
 
+(defun chess-ply-set-keyword (ply keyword &optional value)
+  (let* ((changes (chess-ply-changes ply))
+	 (item (memq keyword changes)))
+    (if item
+	(if value
+	    (setcar (cdr item) value))
+      (nconc changes (if value
+			 (list keyword value)
+		       (list keyword))))))
+
 (defsubst chess-ply-source (ply)
   (let ((changes (chess-ply-changes ply)))
     (and (listp changes) (not (symbolp (car changes)))