@@ -442,7 +442,8 @@ orderedList = try $ do
442442
443443definitionListItem :: PandocMonad m => MuseParser m (F (Inlines, [Blocks]))
444444definitionListItem = try $ do
445− term <- termParser
445+ rawTerm <- termParser
446+ term <- parseFromString (trimInlinesF . mconcat <$> many inline) rawTerm
446447 many1 spaceChar
447448 string "::"
448449 firstLine <- many $ noneOf "\n"
@@ -450,7 +451,8 @@ definitionListItem = try $ do
450451 let lns = firstLine : restLines
451452 lineContent <- parseFromString (withListContext parseBlocks) $ concat lns ++ "\n"
452453 pure $ do lineContent' <- lineContent
453− pure (B.text term, [lineContent'])
454+ term' <- term
455+ pure (term', [lineContent'])
454456 where
455457 termParser = (guardDisabled Ext_amuse <|> void spaceChar) >> -- Initial space is required by Amusewiki, but not Emacs Muse
456458 many spaceChar >>