diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Inlines.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/Org.hs | 10 |
2 files changed, 11 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Inlines.hs b/src/Text/Pandoc/Readers/Org/Inlines.hs index 4e61bc695..31bfe4478 100644 --- a/src/Text/Pandoc/Readers/Org/Inlines.hs +++ b/src/Text/Pandoc/Readers/Org/Inlines.hs @@ -731,7 +731,7 @@ emphasisPreChars = "\t \"'({" -- | Chars allowed at after emphasis emphasisPostChars :: [Char] -emphasisPostChars = "\t\n !\"'),-.:;?\\}" +emphasisPostChars = "\t\n !\"'),-.:;?\\}[" -- | Chars not allowed at the (inner) border of emphasis emphasisForbiddenBorderChars :: [Char] diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs index b2d0cd684..48f4989ce 100644 --- a/test/Tests/Readers/Org.hs +++ b/test/Tests/Readers/Org.hs @@ -1028,6 +1028,16 @@ tests = , note $ para ("Second" <> space <> "note.") ]) + , "Emphasized text before footnote" =: + unlines [ "/text/[fn:1]" + , "" + , "[fn:1] unicorn" + ] =?> + para (mconcat + [ emph "text" + , note . para $ "unicorn" + ]) + , "Footnote that starts with emphasized text" =: unlines [ "text[fn:1]" , "" |