From 81031af964287e77fed92fc5a103296bfec4444d Mon Sep 17 00:00:00 2001
From: Aditya Caprihan <ac@a42i.net>
Date: Thu, 10 Oct 2024 22:59:55 +1100
Subject: [PATCH] Fix: (org-ql-view--font-lock-as-org) Prevent buffer from
 being saved

Invoking `org-mode' when creating the buffer sets
`buffer-save-without-query' to `t' and `save-some-buffers' will then
unconditionally save the buffer.

So, rather than using `set-buffer-modified-p', set
`buffer-save-without-query' to `nil' after invoking `org-mode' during
buffer creation.
---
 org-ql-view.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/org-ql-view.el b/org-ql-view.el
index 4bb8270..cb6ce09 100644
--- a/org-ql-view.el
+++ b/org-ql-view.el
@@ -537,13 +537,13 @@ with human-readable strings."
                     (with-current-buffer (get-buffer-create " *org-ql-view--font-lock-as-org*")
                       (buffer-disable-undo)
                       (org-mode)
+                      (setq buffer-save-without-query nil)
                       (current-buffer)))))
     (with-current-buffer buffer
       (insert s)
       (font-lock-ensure)
       (prog1 (buffer-string)
-        (erase-buffer)
-        (set-buffer-modified-p nil)))))
+        (erase-buffer)))))
 
 (defun org-ql-view--buffer (&optional name)
   "Return `org-ql-view' buffer, creating it if necessary.