aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-01-24 16:09:14 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2019-01-24 16:09:14 -0800
commit22b09d88ff8b13e2bdfa25781d9143878791581c (patch)
treeb902a9204c9d84980db8ba2211ef7191edf60b32
parent5eaff399d5d6dc30b0d453eff42c4101674d75ab (diff)
downloadpandoc-22b09d88ff8b13e2bdfa25781d9143878791581c.tar.gz
Ms writer: ensure we have a newline after .EN in disply math.
Closes #5251.
-rw-r--r--src/Text/Pandoc/Writers/Ms.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 202cb91ad..95ca1d4e9 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -418,7 +418,7 @@ inlineToMs opts (Math DisplayMath str) = do
contents <- inlineToMs opts il
return $ cr <> text ".RS" $$ contents $$ text ".RE"
Right r -> return $
- cr <> text ".EQ" $$ text r $$ text ".EN"
+ cr <> text ".EQ" $$ text r $$ text ".EN" <> cr
inlineToMs _ il@(RawInline f str)
| f == Format "ms" = return $ text str
| otherwise = do