aboutsummaryrefslogtreecommitdiffhomepage
path: root/coq/coq-par-compile.el
diff options
context:
space:
mode:
Diffstat (limited to 'coq/coq-par-compile.el')
-rw-r--r--coq/coq-par-compile.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/coq/coq-par-compile.el b/coq/coq-par-compile.el
index 6378f573..8901a008 100644
--- a/coq/coq-par-compile.el
+++ b/coq/coq-par-compile.el
@@ -775,7 +775,8 @@ and resets the internal state."
(setq coq-par-vio2vo-queue (coq-par-new-queue))
(setq coq--compile-vio2vo-in-progress nil)
(when coq--compile-vio2vo-delay-timer
- (cancel-timer coq--compile-vio2vo-delay-timer))
+ (cancel-timer coq--compile-vio2vo-delay-timer)
+ (setq coq--compile-vio2vo-delay-timer nil))
(coq-par-unlock-all-ancestors-on-error)
(when proof-action-list
(setq proof-shell-interrupt-pending t))
@@ -1927,7 +1928,8 @@ the maximal number of background compilation jobs is started."
;; notification
(when (cdr splitted-items)
(when coq--compile-vio2vo-delay-timer
- (cancel-timer coq--compile-vio2vo-delay-timer))
+ (cancel-timer coq--compile-vio2vo-delay-timer)
+ (setq coq--compile-vio2vo-delay-timer nil))
(when coq--compile-vio2vo-in-progress
(assert (not coq--last-compilation-job)
nil "normal compilation and vio2vo in parallel 2")