From 2ab83a56e60227339c8c0064988d1264606bfed0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 6 Mar 2020 09:45:46 -0800
Subject: Ms writer: use .QS/.QE instead of .RS/.RE for block quotes.

---
 src/Text/Pandoc/Writers/Ms.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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"
-- 
cgit v1.2.3