tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-html.el: Bugfix: Convert special characters in some meta tag. 

* org-html.el (org-export-as-html): Convert special characters
in meta tag "author", "date", "keyword" and "description".

Thanks to Pavel Panchekha for raising this issue.
This commit is contained in:
Bastien Guerry 2011-10-29 14:17:56 +02:00
parent ad09e1e036
commit b2408c0096
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-html.el
View File

@ -1157,8 +1157,8 @@ PUB-DIR is set, use this as the publishing directory."
(t (get-buffer-create to-buffer)))
(find-file-noselect filename)))
(org-levels-open (make-vector org-level-max nil))
(date (plist-get opt-plist :date))
(author (plist-get opt-plist :author))
(date (org-html-expand (plist-get opt-plist :date)))
(author (org-html-expand (plist-get opt-plist :author)))
(html-validation-link (or org-export-html-validation-link ""))
(title (org-html-expand
(or (and subtree-p (org-export-get-title-from-subtree))
@ -1187,8 +1187,8 @@ PUB-DIR is set, use this as the publishing directory."
(inverse nil)
(email (plist-get opt-plist :email))
(language (plist-get opt-plist :language))
(keywords (plist-get opt-plist :keywords))
(description (plist-get opt-plist :description))
(keywords (org-html-expand (plist-get opt-plist :keywords)))
(description (org-html-expand (plist-get opt-plist :description)))
(num (plist-get opt-plist :section-numbers))
(lang-words nil)
(head-count 0) cnt