Ms writer: use .QS/.QE instead of .RS/.RE for block quotes.

2 files changed, 15 insertions, 15 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"
diff --git a/test/writer.ms b/test/writer.ms
index de8e1a8c0..3362c7b5d 100644
--- a/test/writer.ms
+++ b/test/writer.ms
@@ -150,12 +150,12 @@ Block Quotes
 .pdfhref M "block-quotes"
 .LP
 E-mail style:
-.RS
+.QS
 .LP
 This is a block quote.
 It is pretty short.
-.RE
-.RS
+.QE
+.QS
 .LP
 Code in a block quote:
 .IP
@@ -174,15 +174,15 @@ item one
 item two
 .LP
 Nested block quotes:
-.RS
+.QS
 .LP
 nested
-.RE
-.RS
+.QE
+.QS
 .LP
 nested
-.RE
-.RE
+.QE
+.QE
 .LP
 This should not be a block quote: 2 > 1.
 .PP
@@ -502,10 +502,10 @@ orange fruit
 { orange code block }
 \f[]
 .fi
-.RS
+.QS
 .LP
 orange block quote
-.RE
+.QE
 .RE
 .LP
 Multiple definitions, tight:
@@ -930,13 +930,13 @@ An e-mail address: \c
 .pdfhref W -D "mailto:nobody%40nowhere.net" -A "\c" \
  -- "nobody\[at]nowhere.net"
 \&
-.RS
+.QS
 .LP
 Blockquoted: \c
 .pdfhref W -D "http://example.com/" -A "\c" \
  -- "http://example.com/"
 \&
-.RE
+.QE
 .LP
 Auto-links should not occur here: \f[C]<http://example.com/>\f[R]
 .IP
@@ -994,13 +994,13 @@ Inline notes may contain \c
  -- "links"
 \& and \f[C]]\f[R] verbatim characters, as well as [bracketed text].
 .FE
-.RS
+.QS
 .LP
 Notes can go in quotes.\**
 .FS
 In quote.
 .FE
-.RE
+.QE
 .IP " 1." 4
 And in list items.\**
 .FS