[elpa] externals/org b45911d41e 06/13: org-export-copy-buffer: Prevent saving to disk

[ELPA Syncer]

branch: externals/org
commit b45911d41e9d81bc23b93d7e75d0a7611ae18f38
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-export-copy-buffer: Prevent saving to disk
    
    * lisp/ox.el (org-export--generate-copy-script): Prevent Emacs from
    ever saving copied buffer contents to disk despite `buffer-file-name'
    being set to the original value.
---
 lisp/ox.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/ox.el b/lisp/ox.el
index 3e53692dc6..ff14b2f47e 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -2624,6 +2624,9 @@ The function assumes BUFFER's major mode is `org-mode'."
             ov-set)))
       (lambda ()
        (let ((inhibit-modification-hooks t))
+          ;; Never write the buffer copy to disk, despite
+          ;; `buffer-file-name' not being nil.
+          (set 'write-contents-functions (list #'always))
          ;; Set major mode. Ignore `org-mode-hook' and other hooks as
          ;; they have been run already in BUFFER.
           (delay-mode-hooks