diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-28 23:37:41 -0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-28 23:37:41 -0400 |
| commit | ae68836352afae134510b93b29983cb207fa37d0 (patch) | |
| tree | 21563ea1f9d341f2357d4247c8da6e02da4bb9c7 /src/Text | |
| parent | 632fd49d07cb6f286fb11dc9512115bff39049fd (diff) | |
Textile reader: Avoid parsing dashes as strikeout.
Previously the input
text--
text--
text--
text--
would be parsed with strikeouts rather than dashes. This fixes
the problem by requiring that a strikeout delimiting - not be
followed by a -.
Closes #631.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 170ccc2c7..0d516f545 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -374,7 +374,7 @@ inlineMarkup = choice [ simpleInline (string "??") (Cite []) , simpleInline (char '*') Strong , simpleInline (char '_') Emph , simpleInline (char '+') Emph -- approximates underline - , simpleInline (char '-') Strikeout + , simpleInline (char '-' <* notFollowedBy (char '-')) Strikeout , simpleInline (char '^') Superscript , simpleInline (char '~') Subscript ] |