[elpa] externals/beardbolt 3514e6f288 237/323: rmsbolt-compile: Only ask to save the current buffer

[ELPA Syncer]

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

    rmsbolt-compile: Only ask to save the current buffer
    
    Other buffers with `rmsbolt-mode` enabled are usually unrelated to the
    current compilation, so don't ask to save them.
---
 rmsbolt.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 20b9755d9c..e403a7db26 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -1468,7 +1468,9 @@ and return it."
 (defun rmsbolt-compile ()
   "Compile the current rmsbolt buffer."
   (interactive)
-  (save-some-buffers nil (lambda () rmsbolt-mode))
+  (when (and (buffer-modified-p)
+             (yes-or-no-p (format "Save buffer %s? " (buffer-name))))
+    (save-buffer))
   (rmsbolt--gen-temp)
   ;; Current buffer = src-buffer at this point
   (setq rmsbolt-src-buffer (current-buffer))