[elpa] externals/beardbolt 1267509ab4 220/323: Move `rmsbolt-with-display-buffer-no-window`

[ELPA Syncer]

branch: externals/beardbolt
commit 1267509ab46e38a17b31d2487a1dfc5f1704eea9
Author: Erik Arvstedt <erik.arvstedt@gmail.com>
Commit: Erik Arvstedt <erik.arvstedt@gmail.com>

    Move `rmsbolt-with-display-buffer-no-window`
    
    This makes it clear that it's only used to hide the compilation window.
---
 rmsbolt.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 1b333a7a92..d495ab4e22 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1533,15 +1533,15 @@ Are you running two compilations at the same time?"))
            (error "Objdumper not recognized"))))
       ;; Convert to demangle if we need to
       (setq cmd (rmsbolt--demangle-command cmd lang src-buffer))
-      (rmsbolt-with-display-buffer-no-window
-       (let ((shell-file-name (or (executable-find rmsbolt--shell)
-                                  shell-file-name)))
-         (with-current-buffer
-             ;; TODO should this be configurable?
-             (compilation-start cmd nil (lambda (&rest _) 
"*rmsbolt-compilation*"))
-           (add-hook 'compilation-finish-functions
-                     #'rmsbolt--handle-finish-compile nil t)
-           (setq-local rmsbolt-src-buffer src-buffer))))))))
+      (let ((shell-file-name (or (executable-find rmsbolt--shell)
+                                 shell-file-name)))
+        (with-current-buffer
+            ;; TODO should this be configurable?
+            (rmsbolt-with-display-buffer-no-window
+             (compilation-start cmd nil (lambda (&rest _) 
"*rmsbolt-compilation*")))
+          (add-hook 'compilation-finish-functions
+                    #'rmsbolt--handle-finish-compile nil t)
+          (setq rmsbolt-src-buffer src-buffer)))))))
 
 ;;;; Keymap
 (defvar rmsbolt-mode-map