From df9a0f1d290e8729a6fbe7fcceb152097062fb18 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 16 Apr 2002 21:29:12 +0000 Subject: (chess-clock-handler): Use `chess-ply-set-keyword', to avoid double-adding keywords. --- chess-clock.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/chess-clock.el b/chess-clock.el index c2f0e7c..4adea68 100644 --- a/chess-clock.el +++ b/chess-clock.el @@ -51,9 +51,10 @@ ((eq event 'move) (when (> (chess-game-index game) 0) (let ((last-ply (car (last (chess-game-plies game) 2)))) - (nconc last-ply - (list :white (chess-game-data game 'white-remaining) - :black (chess-game-data game 'black-remaining)))))) + (chess-ply-set-keyword last-ply :white + (chess-game-data game 'white-remaining)) + (chess-ply-set-keyword last-ply :black + (chess-game-data game 'black-remaining))))) ((eq event 'destroy) (cancel-timer chess-clock-timer)))) -- cgit v1.2.3