From 9bba39bd3a6fe1ea8376479e61ec17b7a98a3d87 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sun, 16 Jun 2019 12:42:17 +0200
Subject: [PATCH] Prevent unsaved prompts when formatting #1498

The fix for #1489 (in 13f5a762) gives the temp buffer (where formatting
is performed) a real buffer-file-name, which causes it to prompt to save
it when it is killed.
---
 modules/editor/format/autoload/format.el | 25 ++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/modules/editor/format/autoload/format.el b/modules/editor/format/autoload/format.el
index 783d96fbf..b203505e2 100644
--- a/modules/editor/format/autoload/format.el
+++ b/modules/editor/format/autoload/format.el
@@ -134,18 +134,19 @@ See `+format/buffer' for the interactive version of this function, and
                   (origin-buffer-file-name (buffer-file-name (buffer-base-buffer)))
                   (origin-default-directory default-directory))
               (with-temp-buffer
-                (insert output)
-                ;; Ensure this temp buffer _seems_ as much like the origin
-                ;; buffer as possible.
-                (setq default-directory origin-default-directory
-                      buffer-file-name origin-buffer-file-name)
-                ;; Since we're piping a region of text to the formatter, remove
-                ;; any leading indentation to make it look like a file.
-                (when preserve-indent-p
-                  (setq indent (+format--current-indentation))
-                  (when (> indent 0)
-                    (indent-rigidly (point-min) (point-max) (- indent))))
-                (funcall f-function executable mode-result)))))
+                (with-silent-modifications
+                  (insert output)
+                  ;; Ensure this temp buffer _seems_ as much like the origin
+                  ;; buffer as possible.
+                  (setq default-directory origin-default-directory
+                        buffer-file-name origin-buffer-file-name)
+                  ;; Since we're piping a region of text to the formatter, remove
+                  ;; any leading indentation to make it look like a file.
+                  (when preserve-indent-p
+                    (setq indent (+format--current-indentation))
+                    (when (> indent 0)
+                      (indent-rigidly (point-min) (point-max) (- indent))))
+                  (funcall f-function executable mode-result))))))
         (unwind-protect
             (cond ((null output) 'error)
                   ((eq output t) 'noop)