*** no comment ***

1 files changed, 6 insertions, 2 deletions

diff --git a/chess-ply.el b/chess-ply.el
index b9141c7..9830ed1 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -71,8 +71,12 @@
 (defun chess-ply-keyword (ply keyword)
   (let ((item (memq keyword (chess-ply-changes ply))))
     (if item
-	(if (memq keyword '(:which :promote))
-	    (cdr item)
+	;; these are special keywords which use a value argument;
+	;; `which' is for disambiguating algebraic moves, `promote'
+	;; indicates the piece to promote to, `white' is white's
+	;; remaining time in seconds, and similarly for `black'
+	(if (memq keyword '(:which :promote :white :black))
+	    (cadr item)
 	  t))))
 
 (defsubst chess-ply-source (ply)