From f92e8d98006f17ec3ad2751fcdb368c2be5bd756 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sun, 11 Jan 2004 21:56:03 +0000 Subject: (chess-clock-tick-tock): Do not decrease time if (chess-game-status chess-module-game) is non-nil. --- chess-clock.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'chess-clock.el') diff --git a/chess-clock.el b/chess-clock.el index 9ef01f7..c8bb28e 100644 --- a/chess-clock.el +++ b/chess-clock.el @@ -84,7 +84,8 @@ (chess-game-inhibit-events t) counter) (setq chess-clock-last-time (current-time)) - (when (> (chess-game-index chess-module-game) 0) + (when (and (> (chess-game-index chess-module-game) 0) + (not (chess-game-status chess-module-game))) (if (chess-pos-side-to-move (chess-game-pos chess-module-game)) (setq counter 'white-remaining) (setq counter 'black-remaining)) -- cgit v1.2.3