branch: externals/beardbolt
commit 730ea84796023b61688a54008fa23beedefce79a
Author: João Távora <[email protected]>
Commit: João Távora <[email protected]>
bb-compile-delay can be nil
* beardbolt.el (bb-compile-delay): Can be nil.
(bb--after-change): Don't do anything if bb-compile-delay is nil.
---
beardbolt.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/beardbolt.el b/beardbolt.el
index 72e035fda9..46f9cae61c 100644
--- a/beardbolt.el
+++ b/beardbolt.el
@@ -128,7 +128,8 @@ Passed directly to compiler or disassembler."
(defvar bb-hide-compile t)
(defvar bb-compile-delay 1.0
- "Time in seconds to delay before recompiling if there is a change.")
+ "Time in seconds to delay before recompiling if there is a change.
+If nil, auto-recompilation is off.")
(defvar bb--shell "bash"
"Which shell to prefer if available.
@@ -700,8 +701,9 @@ With prefix argument, choose from starter files in
`bb-starter-files'."
(defvar bb--change-timer nil)
(defun bb--after-change (&rest _)
- (when (timerp bb--change-timer) (cancel-timer bb--change-timer))
- (setq bb--change-timer (run-with-timer bb-compile-delay nil
#'bb--on-change-timer)))
+ (when bb-compile-delay
+ (when (timerp bb--change-timer) (cancel-timer bb--change-timer))
+ (setq bb--change-timer (run-with-timer bb-compile-delay nil
#'bb--on-change-timer))))
(defun bb--on-change-timer ()
(bb-compile (bb--get-lang)))
