@@ -156,10 +156,8 @@ parseDirectiveKey = do
156156parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines)
157157parseEmacsDirective = do
158158 key <- parseDirectiveKey
159− space
160− spaces
161− raw <- manyTill anyChar eol
162− value <- parseFromString (trimInlinesF . mconcat <$> many inline) raw
159+ spaceChar
160+ value <- trimInlinesF . mconcat <$> manyTill (choice inlineList) eol
163161 return (key, value)
164162
165163parseAmuseDirective :: PandocMonad m => MuseParser m (String, F Inlines)