[elpa] externals/beardbolt 060f170a61 085/323: Clear overlays upon exiting rmsbolt mode

[ELPA Syncer]

branch: externals/beardbolt
commit 060f170a619a2662ab03e3296ca63f2e606b2250
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Clear overlays upon exiting rmsbolt mode
---
 rmsbolt.el | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index f9056b1d67..fa61794b55 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1112,17 +1112,23 @@ Argument STR compilation finish status."
 This mode is enabled both in modes to be compiled and output buffers."
   :global nil
   :lighter rmsbolt-mode-lighter rmsbolt-mode-map
-  ;; This idle timer always runs, even when we aren't in rmsbolt-mode
-  (unless rmsbolt--idle-timer
-    (setq rmsbolt--idle-timer (run-with-idle-timer
-                               rmsbolt-overlay-delay t
-                               #'rmsbolt-move-overlays)))
-  (unless (or rmsbolt--compile-idle-timer
-              (not rmsbolt-automatic-recompile))
-    (setq rmsbolt--compile-idle-timer (run-with-idle-timer
-                                       rmsbolt-compile-delay t
-                                       #'rmsbolt-hot-recompile)))
-  (rmsbolt--gen-temp))
+  ;; Init
+  (unless rmsbolt-mode
+    ;; This idle timer always runs, even when we aren't in rmsbolt-mode
+    ;; It won't do anything unless we are in rmsbolt-mode
+    (when rmsbolt--idle-timer
+      (setq rmsbolt--idle-timer (run-with-idle-timer
+                                 rmsbolt-overlay-delay t
+                                 #'rmsbolt-move-overlays)))
+    (unless (or rmsbolt--compile-idle-timer
+                (not rmsbolt-automatic-recompile))
+      (setq rmsbolt--compile-idle-timer (run-with-idle-timer
+                                         rmsbolt-compile-delay t
+                                         #'rmsbolt-hot-recompile)))
+    (rmsbolt--gen-temp))
+  ;; Cleanup
+  (unless rmsbolt-mode
+    (mapc #'delete-overlay rmsbolt-overlays)))
 
 (provide 'rmsbolt)