summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-01-05 19:58:32 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-01-05 20:15:05 +0100
commit9d47c4f23dc87316282c0cffb8c26588271125da (patch)
treedb5b19e8172739759065fd13aadf55ab96c9a997
parenta496c3af47bdb5f5e8ee75b8e56b438f87f85199 (diff)
downloadorg-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.el8
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))