ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Nicolas Goaziou 2012-01-05 19:58:32 +01:00
parent a496c3af47
commit 9d47c4f23d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-export.el
View File

@ -503,6 +503,11 @@ while every other back-end will ignore it."
(string :tag "Shortcut") (string :tag "Shortcut")
(string :tag "Back-end")))) (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 ;;; The Communication Channel
@ -2069,7 +2074,8 @@ Return output file's name."
backend subtreep visible-only body-only ext-plist))) backend subtreep visible-only body-only ext-plist)))
(with-temp-buffer (with-temp-buffer
(insert out) (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)) (when post-process (funcall post-process out-file))
;; Return full path. ;; Return full path.
out-file)) out-file))