[elpa] externals/beardbolt ebc56d81b0 127/323: Disable automatic recompile for buffers larger than 500 lines

[ELPA Syncer]

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

    Disable automatic recompile for buffers larger than 500 lines
    
    Sticking to the conservative size because loop unrolling can really
    blow up the assembly size, and that's the bottleneck.
    
    Issue #9
---
 rmsbolt.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index d2b814fe08..1822bcc96e 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -88,9 +88,15 @@
   "Lighter displayed in mode line when function `rmsbolt-mode' is active."
   :type 'string
   :group 'rmsbolt)
+(defcustom rmsbolt-large-buffer-size 500
+  "Number of lines past which a buffer is considred large."
+  :type 'integer
+  :group 'rmsbolt)
 (defcustom rmsbolt-automatic-recompile t
   "Whether to automatically recompile on source buffer changes.
-Emacs-lisp does not support automatic-recompilation currently."
+Emacs-lisp does not support automatic-recompilation currently.
+This setting is automatically disabled on large buffers, use
+'force to force-enable it."
   :type 'boolean
   :group 'rmsbolt)
 
@@ -621,6 +627,7 @@ This should be an object of type `rmsbolt-lang', normally 
set by the major mode"
 Lifted from 
https://emacs.stackexchange.com/questions/35936/disassembly-of-a-bytecode-file";
   (if (not (require 'cl-print nil 'noerror))
       (error "Package cl-print or Emacs 26+ are required for the Emacs 
disassembler")
+    (require 'cl-print)
     (byte-compile-file filename)
     ;; .el -> .elc
     (setq filename (concat filename "c"))
@@ -1251,6 +1258,10 @@ Argument OVERRIDE-BUFFER use this buffer instead of 
reading from the output file
              (is-not-elisp (not (eq 'emacs-lisp-mode
                                     (with-current-buffer src-buffer
                                       major-mode))))
+             (is-not-large (or (< (with-current-buffer src-buffer
+                                    (line-number-at-pos (point-max)))
+                                  rmsbolt-large-buffer-size)
+                               (eq rmsbolt-automatic-recompile 'force)))
              (modified (buffer-modified-p src-buffer)))
     (with-current-buffer src-buffer
       ;; Write to disk