@@ -142,7 +142,8 @@ pandocToHtml opts (Pandoc (Meta title' authors' date') blocks) = do
142 _ -> case lookup "mathml-script" (writerVariables opts) of
142 _ -> case lookup "mathml-script" (writerVariables opts) of
143 Just s ->
143 Just s ->
144 script ! [thetype "text/javascript"] <<
144 script ! [thetype "text/javascript"] <<
145− primHtml s
145+ primHtml ("/*<![CDATA[*/\n" ++ s ++
146 Nothing -> noHtml
147 Nothing -> noHtml
147 else noHtml
148 else noHtml
148 let newvars = [("highlighting-css", defaultHighlightingCss) |
149 let newvars = [("highlighting-css", defaultHighlightingCss) |