branch: externals/beardbolt
commit d51e71f8945385c472beeb32af9c25cd66f7e3fb
Author: Jay Kamat <[email protected]>
Commit: Jay Kamat <[email protected]>
Use special named buffer for compilation
A lot of people have weird tooling which clobbers *compilation* and
other things, which this works around.
In addition this overwrites the *compilation* buffer, so if people
have other compiles running it used to overwrite them.
---
rmsbolt.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/rmsbolt.el b/rmsbolt.el
index 613e636a72..168e3fd7ab 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1482,7 +1482,9 @@ Are you running two compilations at the same time?"))
(rmsbolt-with-display-buffer-no-window
(let ((shell-file-name (or (executable-find rmsbolt--shell)
shell-file-name)))
- (with-current-buffer (compilation-start cmd)
+ (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))))))))
