RST reader: correctly handle intraword emphasis.

Closes #11309.

2 files changed, 12 insertions, 5 deletions

diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 72f7dbe11..5d5e176ee 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -1536,11 +1536,12 @@ hyphens = do
 
 escapedChar :: Monad m => RSTParser m Inlines
 escapedChar = do c <- escaped anyChar
-                 unless (canPrecedeOpener c) updateLastStrPos
-                 return $ if c == ' ' || c == '\n' || c == '\r'
-                             -- '\ ' is null in RST
-                             then mempty
-                             else B.str $ T.singleton c
+                 if c == ' ' || c == '\n' || c == '\r'
+                    -- '\ ' is null in RST
+                    then return mempty
+                    else do
+                      unless (canPrecedeOpener c) updateLastStrPos
+                      return $ B.str $ T.singleton c
 
 canPrecedeOpener :: Char -> Bool
 canPrecedeOpener c =
diff --git a/test/command/11309.md b/test/command/11309.md
new file mode 100644
index 000000000..ae743ed70
--- /dev/null
+++ b/test/command/11309.md
@@ -0,0 +1,6 @@
+```
+% pandoc -f rst -t native
+Cho\ **co**\ late
+^D
+[ Para [ Str "Cho" , Strong [ Str "co" ] , Str "late" ] ]
+```