aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2020-03-06 09:45:46 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2020-03-06 09:45:46 -0800
commit2ab83a56e60227339c8c0064988d1264606bfed0 (patch)
tree8045adcaf42279affec4d77683460523e6934c6b /src/Text/Pandoc/Writers
parentaaf296508aba8f9a95132abfb9aed904738adaaa (diff)
downloadpandoc-2ab83a56e60227339c8c0064988d1264606bfed0.tar.gz
Ms writer: use .QS/.QE instead of .RS/.RE for block quotes.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-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 19eb87f89..42d6b932b 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -216,7 +216,7 @@ blockToMs opts (BlockQuote blocks) = do
setFirstPara
contents <- blockListToMs opts blocks
setFirstPara
- return $ literal ".RS" $$ contents $$ literal ".RE"
+ return $ literal ".QS" $$ contents $$ literal ".QE"
blockToMs opts (Table caption alignments widths headers rows) =
let aligncode AlignLeft = "l"
aligncode AlignRight = "r"