[elpa] externals/beardbolt e1e69080b7 303/323: Rename "output buffer" -> "asm buffer"

[ELPA Syncer]

branch: externals/beardbolt
commit e1e69080b7c06da38034143d230f6c51f6f2e53f
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Rename "output buffer" -> "asm buffer"
    
    * beardbolt.el (bb--asm-buffer): Rename from bb--output-buffer
    (bb--handle-finish-compile): use bb--asm-buffer
    (bb--on-kill-source-buffer): use bb--asm-buffer
    (bb--asm-mode): Rename from bb--asm-mode
    (bb--asm-buffer-pch): Rename from bb--output-buffer-pch
---
 beardbolt.el | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/beardbolt.el b/beardbolt.el
index 8113be7eaa..07dac06acf 100644
--- a/beardbolt.el
+++ b/beardbolt.el
@@ -100,7 +100,7 @@ Passed directly to compiler or disassembler."
   :group 'beardbolt)
 
 ;;;; Basic model
-(defvar-local bb--output-buffer nil)
+(defvar-local bb--asm-buffer nil)
 (defvar-local bb--source-buffer nil)
 (defvar-local bb--compile-spec nil)
 (defvar-local bb--declared-output nil)
@@ -108,13 +108,15 @@ Passed directly to compiler or disassembler."
 (defvar-local bb--line-mappings nil "Maps asm regions -> source lines")
 (defvar-local bb--rainbow-overlays nil "Rainbow overlays.")
 
-(defun bb--output-buffer (src-buffer)
+(defun bb--asm-buffer (src-buffer)
   "Get/create output buffer for current source file."
   (with-current-buffer src-buffer
-    (or (and (buffer-live-p bb--output-buffer) bb--output-buffer)
-        (setq bb--output-buffer
+    (or (and (buffer-live-p bb--asm-buffer)
+             (equal (buffer-name bb--asm-buffer) "*bb-asm*")
+             bb--asm-buffer)
+        (setq bb--asm-buffer
               (with-current-buffer
-                  (generate-new-buffer (format "*bb-output for %s*" 
src-buffer))
+                  (get-buffer-create "*bb-asm*")
                 (current-buffer))))))
 
 (defvar bb-hide-compile t)
@@ -509,10 +511,10 @@ Argument STR compilation finish status."
   (let* ((src-buffer bb--source-buffer)
          (compile-spec bb--compile-spec)
          (declared-output bb--declared-output)
-         (output-buffer (bb--output-buffer src-buffer))
+         (output-buffer (bb--asm-buffer src-buffer))
          (split-width-threshold (min split-width-threshold 100)))
     (with-current-buffer output-buffer
-      (bb--output-mode)
+      (bb--asm-mode)
       (setq bb--source-buffer src-buffer)
       (let* ((inhibit-modification-hooks t)
              (inhibit-read-only t))
@@ -672,13 +674,13 @@ With prefix argument, choose from starter files in 
`bb-starter-files'."
   (bb--synch-relation-overlays))
 
 (defun bb--on-kill-source-buffer ()
-  (bb--when-live-buffer bb--output-buffer
-    (kill-buffer bb--output-buffer)))
+  (bb--when-live-buffer bb--asm-buffer
+    (kill-buffer bb--asm-buffer)))
 
 (defun bb--on-kill-output-buffer ()
   (bb--delete-rainbow-overlays))
 
-(defun bb--output-buffer-pch ()
+(defun bb--asm-buffer-pch ()
   (bb--synch-relation-overlays))
 
 (defvar bb--change-timer nil)
@@ -725,10 +727,10 @@ With prefix argument, choose from starter files in 
`bb-starter-files'."
     (remove-hook 'kill-buffer-hook #'bb--on-kill-source-buffer t)
     (remove-hook 'post-command-hook #'bb--source-buffer-pch t))))
 
-(define-derived-mode bb--output-mode asm-mode "⚡output⚡"
+(define-derived-mode bb--asm-mode asm-mode "⚡asm ⚡"
   "Toggle `bearbolt--output-mode', internal mode for asm buffers."
   (add-hook 'kill-buffer-hook #'bb--on-kill-output-buffer nil t)
-  (add-hook 'post-command-hook #'bb--output-buffer-pch nil t)
+  (add-hook 'post-command-hook #'bb--asm-buffer-pch nil t)
   (setq truncate-lines t)
   (read-only-mode t)
   (buffer-disable-undo)