branch: externals/beardbolt
commit 3514e6f288b887a36b35f78ff13f8ab4d4776a99
Author: Erik Arvstedt <erik.arvst...@gmail.com>
Commit: Erik Arvstedt <erik.arvst...@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))
