(chess-clock-tick-tock): Do not decrease time if (chess-game-status chess-module...

is non-nil.

diff --git a/chess-clock.el b/chess-clock.el
index 9ef01f76b3268bdf26e966b5474228429894f2da..c8bb28e11466032e53a6d38e4071b18c0f73e780 100644 (file)
--- 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))