Org reader: allow emphasized text to be followed by [

Closes: #3577

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]

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]"
                   , ""