Commit cc10c80d authored by Nicolas Goaziou's avatar Nicolas Goaziou
Browse files

ox: Preserve coding system when writing output to a file

* lisp/ox.el (org-export-to-file): Preserve coding system when writing
  output.
parent 2710267e
......@@ -3058,10 +3058,11 @@ to kill ring. Return output file's name."
;; we'd rather avoid needless transcoding of parse tree.
(unless (file-writable-p file) (error "Output file not writable"))
;; Insert contents to a temporary buffer and write it to FILE.
(let ((out (org-export-as backend subtreep visible-only body-only ext-plist)))
(let ((coding buffer-file-coding-system)
(out (org-export-as backend subtreep visible-only body-only ext-plist)))
(with-temp-buffer
(insert out)
(let ((coding-system-for-write org-export-coding-system))
(let ((coding-system-for-write (or org-export-coding-system coding)))
(write-file file)))
;; Maybe add file contents to kill ring.
(when (and (org-export--copy-to-kill-ring-p) (org-string-nw-p out))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment