Textile reader: don't let spans begin right after a symbol.

Closes #9878.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index fcfff8aa9..817c31c24 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -685,9 +685,12 @@ escapedTag = B.str . T.pack <$>
 
 -- | Any special symbol defined in wordBoundaries
 symbol :: PandocMonad m => TextileParser m Inlines
-symbol = B.str . T.singleton <$> (notFollowedBy newline *>
-                                  notFollowedBy rawHtmlBlock *>
-                                  oneOf wordBoundaries)
+symbol = do
+  c <- notFollowedBy newline *>
+         notFollowedBy rawHtmlBlock *>
+         oneOf wordBoundaries
+  updateLastStrPos
+  pure $ B.str . T.singleton $ c
 
 -- | Inline code
 code :: PandocMonad m => TextileParser m Inlines