From b2408c00967a4ef60b00f572b838a7c4f4686a90 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 29 Oct 2011 14:17:56 +0200 Subject: [PATCH] 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. --- lisp/org-html.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-html.el b/lisp/org-html.el index 7fa5e1445..5a08ae466 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -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