From cc10c80d8504d1be59521e291923179170cb3792 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 31 Jul 2013 14:44:33 +0200 Subject: [PATCH] ox: Preserve coding system when writing output to a file * lisp/ox.el (org-export-to-file): Preserve coding system when writing output. --- lisp/ox.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index fcf3ef7d6..abdc63678 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -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))