[elpa] externals/beardbolt d51e71f894 188/323: Use special named buffer for compilation

[ELPA Syncer]

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

    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))))))))