mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-28 10:56:57 +00:00
Code

org-e-html.el: Fix charset

Browse Source
This commit is contained in:
Jambunathan K 2012-04-16 23:30:29 +05:30
parent 4959371373
commit df6f574b13
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
EXPERIMENTAL/org-e-html.el
View File

@ -201,10 +201,11 @@ and corresponding declarations."
(cons (string :tag "Extension")
(string :tag "Declaration")))))
(defcustom org-e-html-coding-system nil
"Coding system for HTML export, defaults to `buffer-file-coding-system'."
:group 'org-export-e-html
:type 'coding-system)
;; Use `org-export-coding-system' instead
;; (defcustom org-e-html-coding-system nil
;; "Coding system for HTML export, defaults to `buffer-file-coding-system'."
;; :group 'org-export-e-html
;; :type 'coding-system)
(defvar org-e-html-content-div "content"
"The name of the container DIV that holds all the page contents.
@ -1491,10 +1492,11 @@ This function shouldn't be used for floats. See
(format "\n<title>%s</title>\n" title)
(format
"\n<meta http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>"
(and coding-system-for-write
(fboundp 'coding-system-get)
(coding-system-get coding-system-for-write
'mime-charset)))
(or (and org-export-coding-system
(fboundp 'coding-system-get)
(coding-system-get org-export-coding-system
'mime-charset))
"iso-8859-1"))
(format "\n<meta name=\"title\" content=\"%s\"/>" title)
(format "\n<meta name=\"generator\" content=\"Org-mode\"/>")
(format "\n<meta name=\"generated\" content=\"%s\"/>"