@@ -853,7 +853,7 @@ inline = choice [ whitespace
853853 , strong
854854 , emph
855855 , code
856− , image
856+ , subst
857857 , superscript
858858 , subscript
859859 , math
@@ -1018,9 +1018,8 @@ autoEmail = do
10181018autoLink :: RSTParser Inlines
10191019autoLink = autoURI <|> autoEmail
10201020
1021−-- For now, we assume that all substitution references are for images.
1022−image :: RSTParser Inlines
1023−image = try $ do
1021+subst :: RSTParser Inlines
1022+subst = try $ do
10241023 (_,ref) <- withRaw $ enclosed (char '|') (char '|') inline
10251024 state <- getState
10261025 let substTable = stateSubstitutions state