From 9d47c4f23dc87316282c0cffb8c26588271125da Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 5 Jan 2012 19:58:32 +0100 Subject: [PATCH] contrib/lisp/org-export: Customize coding system for export to file * contrib/lisp/org-export.el (org-export-coding-system): New variable. (org-export-to-file): Use new variable. --- contrib/lisp/org-export.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 9a7e023fd..4ab5fb700 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -503,6 +503,11 @@ while every other back-end will ignore it." (string :tag "Shortcut") (string :tag "Back-end")))) +(defcustom org-export-coding-system nil + "Coding system for the exported file." + :group 'org-export-general + :type 'coding-system) + ;;; The Communication Channel @@ -2069,7 +2074,8 @@ Return output file's name." backend subtreep visible-only body-only ext-plist))) (with-temp-buffer (insert out) - (write-file out-file))) + (let ((coding-system-for-write org-export-coding-system)) + (write-file out-file)))) (when post-process (funcall post-process out-file)) ;; Return full path. out-file))