RST reader: correctly handle intraword emphasis.

Closes #11309.

Author: jgm

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 =

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" ] ]
+```