From 1bd7dd39c4af6b7b774b278c6d759ab002744bc8 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 15 Apr 2002 06:58:52 +0000 Subject: *** no comment *** --- chess-clock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'chess-clock.el') diff --git a/chess-clock.el b/chess-clock.el index 3c8208a..3ded9a9 100644 --- a/chess-clock.el +++ b/chess-clock.el @@ -35,9 +35,9 @@ (cond ((eq event 'initialize) (unless (chess-game-data game 'white-remaining) - (chess-game-set-data game 'white-remaining (float (car args)))) + (chess-game-set-data game 'white-remaining (float (or (car args) 0)))) (unless (chess-game-data game 'black-remaining) - (chess-game-set-data game 'black-remaining (float (car args)))) + (chess-game-set-data game 'black-remaining (float (or (car args) 0)))) (setq chess-clock-timer (run-with-timer 0 1 'chess-clock-tick-tock (current-buffer))) t) -- cgit v1.2.3