From 1ad8f4a01eea87a400f064bc257f0fb3cf1056e0 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 3 Sep 2013 14:05:53 +0200 Subject: [PATCH] ox-html: Fix meta tag output for properties * lisp/ox-html.el (org-html--build-meta-info): Fix output of meta tags when properties are present. Reported-by: Kyle Machulis --- lisp/ox-html.el | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 5fd1865ad..14b31b27b 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -1535,23 +1535,26 @@ INFO is a plist used as a communication channel." (org-html-close-tag "meta" " name=\"generator\" content=\"Org-mode\"" info) "\n" (and (org-string-nw-p author) - (org-html-close-tag "meta" - (format " name=\"author\" content=\"%s\"" - (funcall protect-string author)) - info) - "\n") + (concat + (org-html-close-tag "meta" + (format " name=\"author\" content=\"%s\"" + (funcall protect-string author)) + info) + "\n")) (and (org-string-nw-p description) - (org-html-close-tag "meta" - (format " name=\"description\" content=\"%s\"\n" - (funcall protect-string description)) - info) - "\n") + (concat + (org-html-close-tag "meta" + (format " name=\"description\" content=\"%s\"\n" + (funcall protect-string description)) + info) + "\n")) (and (org-string-nw-p keywords) - (org-html-close-tag "meta" - (format " name=\"keywords\" content=\"%s\"" - (funcall protect-string keywords)) - info) - "\n")))) + (concat + (org-html-close-tag "meta" + (format " name=\"keywords\" content=\"%s\"" + (funcall protect-string keywords)) + info) + "\n"))))) (defun org-html--build-head (info) "Return information for the .. of the HTML output. -- 2.11.4.GIT