diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-01-05 19:58:32 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-01-05 20:15:05 +0100 |
commit | 9d47c4f23dc87316282c0cffb8c26588271125da (patch) | |
tree | db5b19e8172739759065fd13aadf55ab96c9a997 | |
parent | a496c3af47bdb5f5e8ee75b8e56b438f87f85199 (diff) | |
download | org-mode-9d47c4f23dc87316282c0cffb8c26588271125da.tar.gz |
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.
-rw-r--r-- | contrib/lisp/org-export.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 9a7e023..4ab5fb7 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)) |