aboutsummaryrefslogtreecommitdiff
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
parentaaf296508aba8f9a95132abfb9aed904738adaaa (diff)
downloadpandoc-2ab83a56e60227339c8c0064988d1264606bfed0.tar.gz
Ms writer: use .QS/.QE instead of .RS/.RE for block quotes.
-rw-r--r--src/Text/Pandoc/Writers/Ms.hs2
-rw-r--r--test/writer.ms28
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