diff options
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 8 |
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) |