branch: externals/beardbolt
commit 1267509ab46e38a17b31d2487a1dfc5f1704eea9
Author: Erik Arvstedt <[email protected]>
Commit: Erik Arvstedt <[email protected]>
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
