Textile reader: inline constructors don't trigger if closer...

...is preceded by whitespace. Closes #10414.
jgm · Dec 18, 2024 · 9acff99 · 9acff99
1 parent 63a949d
commit 9acff99
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
@@ -783,7 +783,9 @@ simpleInline border construct = try $ do
   attr <- attributes
   body <- trimInlines . mconcat <$>
           withQuoteContext InSingleQuote
-            (manyTill (notFollowedBy newline >> inline)
+            (manyTill (((B.space <>) <$>
+                         (whitespace *> notFollowedBy newline >> inline))
+                     <|> (notFollowedBy newline >> inline))
              (try border <* notFollowedBy alphaNum))
   return $ construct $
         if attr == nullAttr

diff --git a/test/command/10414.md b/test/command/10414.md
@@ -0,0 +1,6 @@
+```
+% pandoc -f textile -t html
+from 30.-100. text, inside - after dash
+^D
+<p>from 30.–100. text, inside - after dash</p>
+```